open(my $TEST, "<", $ARGV[0])
   or die("Can't open \"$ARGV[0]\": $!\n");