% ./myprog foo bar blat

##</code><code>##

#!/usr/bin/perl -s

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

##</code><code>##

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

##</code><code>##

while (<>) {
  # $ARGV is the filename
  # $_ is the line
  # $. is the line number
    # reset it to 0 by doing
    # $. = 0 if eof;
    # or
    # close ARGV if eof;
}