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