use CGI qw( escapeHTML ); my $cgi = CGI->new(); foreach my $param ($cgi->param()) { foreach my $value ($cgi->param($param)) { printf("
%s = %s
\n", escapeHTML($param), escapeHTML($value), ); } }