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