open (INFILE, $ARGV[0]) or die "unable to open file";

open (OUTFILE, ">$ARGV[1]");