my $query = CGI->new; my @names = $query->param; foreach my $name (@names) { print $name . ' => ' . param($name) . "
\n"; } print "

\n";