[jeffa@neo cgi-bin]$ perl -c val.cgi 
Global symbol "$template" requires explicit package name on line 51
Global symbol "$page_num" requires explicit package name on 64
Global symbol "%shorthand" requires explicit package name on line 71
Global symbol "$startingcat" requires explicit package name on line 71
val.cgi had compilation errors.

##</code><code>##

(name this 'params.tmpl')

<TMPL_IF PARAMS>
   <table>
   <tr>
      <tH>KEY</th>
      <th>&nbsp;</th>
      <th>VALUE</th>
   </tr>
   <TMPL_LOOP NAME=PARAMS>
   <tr>
      <td align="right"><TMPL_VAR NAME=KEY></td>
      <td align="center">=&gt;</td>
      <td><TMPL_VAR NAME=VALUE></td>
   </tr>
   </TMPL_LOOP>
   </table>
<TMPL_ELSE>
   No params!
</TMPL_IF>

##</code><code>##

use CGI qw(:standard);
use HTML::Template;
use strict;

my $template = HTML::Template->new(filename => 'params.tmpl') or die;

my $params = [
   map {
      { KEY => $_, VALUE => join(',',param($_)) }
   } param()
];


$template->param(PARAMS => $params);

print header, start_html('Form Param Display'), 
   $template->output, end_html;

##</code><code>##

http://localhost/cgi-bin/params.cgi?foo=bar&qux=baz&foo=bar2

http://localhost/cgi-bin/params.cgi