#!/usr/bin/perl -w
###############################################################
use strict;
use CGI;
use Data::Dumper;

my $cgi=new CGI;

my $v={};
map { my($k,$vl) = ($_,$cgi->param($_));
     $v->{$k}=$vl;
    } $cgi->param();

print Dumper($v);