use CGI;
my $qry = new CGI;

my $argCt = @ARGV;
for ($i=0; $i < $argCt; $i++)
{
    print "Arg $i = [$ARGV[$i]]\n";
}
print "No args found\n" if $argCt == 0;

foreach my $key ( $qry->param ) 
{
    if ( $qry->param($key) )
    {
        foreach my $value ( $qry->param($key) ) 
        {
            print "key, value are $key, $value\n";
        }
    } else
    {
        # arg-less booleans
        print "key-only is $key\n";
    }
}

print "Arg(0) is [$ARGV[0]], param list is [", $qry->param(),"]\n";

##</code><code>##

perl stuff.pl a b c
Arg[0] = a
Arg[1] = b
Arg[2] = c
key, value are keywords, a
key, value are keywords, b
key, value are keywords, c
Arg(0) is [a], param list is [keywords]

##</code><code>##

perl stuff.pl a b=
Arg[0] = a
Arg[1] = b=
key-only is a
key-only is b
Arg(0) is [a], param list is [ab]

##</code><code>##

http:...stuff.cgi?a&b