#!/usr/bin/perl -w
use CGI;
use CGI qq/escapeHTML/;
my $cgi = new CGI;
print $cgi->header;
print "\n\nForm Tester\n\n";
print "This page was requested with a " . $cgi->request_method() . " request.
\n";
print "Form data follows:
\n| Name | Value |
|---|
";
my %vars = $cgi->Vars;
my @fieldnames = sort { lc($a) cmp lc($b) } (keys %vars);
foreach my $key (@fieldnames) {
$key = escapeHTML($key);
$val = escapeHTML($vars{$key});
print "| $key | $val |
\n";
}
print "
\n\n\n";