my $lend="\x0D\x0A";
for(PerlIO::get_layers(*STDOUT))
{ 
  if($_ eq 'crlf')
  {
    $lend="\x0A"; 
    last; 
  } 
}