Select Code to Download

    #!/usr/local/bin/perl -w
    use strict;
...

    print map $_ . " => " . $q->param($_) . "\n",
        $q->param;

    % foo.cgi foo=bar baz=quux
    foo => bar
    baz => quux