use CGI;
use strict;

my $q = new CGI;

#get a list of parameter names
my @params = $q->param();

# Start HTML Output
print $q->header(),$q->start_html('FOO');

# Print a table of params and values.
print "<TABLE>";
    print << EHTML;
<TR>
  <TH>Parameter</TH>
  <TH>Value</TH>
</TR>
EHTML

foreach (@params)
{   my $value = $q->param($_);
    print << EHTML;
<TR>
  <TD>$_</TD>
  <TD>$value</TD>
</TR>
EHTML
}
print "</TABLE>", $q->end_html();