use warnings;
use strict;
use CGI;

use Data::Dumper;
print "Content-type: text/html\n\n";

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

print Dumper \%params;