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

    use CGI;
    my $q = new CGI;

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