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