my $cgi = CGI->new;
my %param = map { $_ => $cgi->param($_) } $cgi->param();