---------------cut foo.pl -------------------
use CGI;
my $q = new CGI;
print "$_=",$q->param($_),"\n" for $q->param;
---------------cut foo.pl -------------------

C:\Perl>perl -e "print qx/foo.pl foo=bar bar=foo/;"
foo=bar
bar=foo

C:\Perl>