open INFILE,  $ARGV[0] or die $!;
open OUTFILE, $ARGV[1] or die $!;
local $\ = "\n";  # Appended to any print invocation
print OUTFILE while(<INFILE>);