my $query = CGI->new;
my @names = $query->param;
foreach my $name (@names) {
    print $name . ' => ' . param($name) . "<BR />\n";
    }
print "<P>\n";
[download]