$query = new CGI;
@parname = $query->param;
foreach $n (@parname) {
  $hashref->{$n} = $query->param($n);
}