# Outputs file in local format.
# Accepts input files in unix, DOS and Mac formats.
# Runs on unix, DOS and Mac.

my $text;

{
   my $fh_in = upload('filepath');
   binmode($fh_in);
   local $/;
   $text = <$fh_in>;
}

$text =~ s/\015\012?|\012/\n/g;

{
   open my $fh_out, ...;
   print $fh_out $text;
}