my $file = $ARGV[0] or die "Usage: prog.pl file_pathname\n";