sub CGI::AsHash {
    my $q = shift;
    my %hash;
    $hash{$_} = $q->param($_) for $q->param;
    return \%hash;
}