script.pl "string1" "string2"
use Getopt::Long;
my $data = "file.dat";
my $length = 24;
my $verbose;
$result = GetOptions ("length=i" => $length, # numeric
"file=s" => $data, # string
"verbose" => $verbose); # flag
$numArgs = $#ARGV + 1;
print "thanks, you gave me $numArgs command-line arguments.n";
foreach $argnum (0 .. $#ARGV) {
print "$ARGV[$argnum]n";
}
foreach my $arg (@ARGV) {
print $arg, "n";
}
while (my $line = <>) {
process_line($line);
}
while (my $arg = shift) {
print "Found argument $argn";
}