Select Code to Download

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

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