# Outputs file in DOS format.
# Accepts input files in unix format.
# Runs on DOS.

{
   my $fh_in = upload('filepath');
   open my $fh_out, ...;
   print $fh_out while <$fh_in>;
}

##</code><code>##

# Outputs file in DOS format.
# Accepts input files in unix format.
# Runs on unix.

{
   my $fh_in = upload('filepath');
   open my $fh_out, ...;
   while (<$fh_in>) {
      chomp;
      print $fh_out "$_\r\n" 
   }
}

##</code><code>##

# Outputs file in DOS 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/\015\012/g;

{
   open my $fh_out, ...;
   binmode($fh_out);
   print $fh_out $text;
}

##</code><code>##

# 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;
}