open INFILE, "<", $ARGV[0] or die "Can't read '$ARGV[0]': $!";