open (INFILE, $ARGV[0]) or die "unable to open file $ARGV[0]: $!\n";
open (OUTFILE, ">$ARGV[1]") or warn "unable to open file $ARGV[1]: $!\n";