[me@here perl]$ cat foo.pl
#!/usr/bin/perl -l

use CGI qw(param);

print for param('foo');


[me@here perl]$ ./foo.pl 'foo=bar'
bar


[me@here perl]$ ./foo.pl 'foo=bar&foo=baz&foo=qux'
bar
baz
qux