my $q = CGI->new();
foreach my $param ($q->param()) {
	my $value = $q->param($param);
	print "$param => $value\n";
}