use CGI;
my $cgi = CGI->new();
my %v = ();
$v{$_} = param($_) for $cgi->keywords();