Re^2: Is there a variable in which Perl stores the native file delimiter for the platform on which your script is running?

[tye]

my $newline = "\n";
$newline = "\r\n"
    if  grep $_ eq "crlf", PerlIO::ge­t_layers(*­STDOUT);