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

my $params = CGI->new->AsHash;