#!/usr/bin/perl

use CGI;

my $q = new CGI;

my @names = $q->param();

for my $name (@names) {
  warn "$name => " . $q->param($name) . "\n";
}