my %params;
for my $name ($cgi->param) {
	my @values = $cgi->param($name);
	$params{$name} = @values > 1 ? \@values : $values[0];
}