$infile = $ARGV[0];
$outfile = $ARGV[1];
open (INFILEHANDLE, "<$infile") or die ("Cannot open file.");
open (OUTFILEHANDLE, ">$outfile") or die ("Cannot open file.");
binmode OUTFILEHANDLE;
while (defined($line = )) {
$line =~ s/\n/\r\n/g;
print OUTFILEHANDLE $line;
}
close INFILEHANDLE;
close OUTFILEHANDLE;