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

##</code><code>##

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