open (INPUT, $ARGV[0]) or die "Couldn't open $ARGV[0]: $!";