use Data::Dumper;
use CGI;
my $q = new CGI;
my %params = $q->Vars;
print Dumper \%params;