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;