open INFILE,  $ARGV[0] or die $!;
open OUTFILE, $ARGV[1] or die $!;

while(<INFILE>){ 
  s/$/\n/;
  print OUTFILE $_;
}