my %cgiform;
for my $key ($cgi->param) {
  $cgiform{$key} = $cgi->param($key);
}