use CGI;

my $query = CGI->new;

print $query->header;

%form = $query->Vars;

use Data::Dumper;
print $query->escapeHTML(Dumper(\%form));