use CGI qw(:standard);
my(%params) =();
foreach my $param (param()){
   $params{$param} = param($param);
}