Select Code to Download

% ./myprog foo bar blat

#!/usr/bin/perl -s

print "value of -x: $x\n";
print "value of -name: $name\n";

% ./myprog -x -name=Jeff
value of -x: 1
value of -name: Jeff

while (<>) {
  # $ARGV is the filename
...
    # or
    # close ARGV if eof;
}