sub param_hash {
     my $q = shift;
     my %param;
     $param{$_} = $q->param($_) for $q->param;
     return \ %param
 }