my %params = $cgi->Vars();
print "<pre>";
print $cgi->escapeHTML( Dumper(\%params) );
print "</pre>";
print $cgi->end_html();