my $rpt_name = $CGI->param('rpt_name');
my $rpt_descr = $CGI->param('rpt_descr');
#etc., etc.

##</code><code>##

foreach my $name ( $CGI->param() ) {
   my $value = $CGI->param($name);
   print "The value of $name is $value<br>";
   }

##</code><code>##

$CGI->import_names('R');
#other stuff
my $tmpl_main2 = HTML::Template->new( filename    => "rpt2.tmpl",
                                     associate   => $CGI,
                                     global_vars => 1,
                                   );
#other stuff
print $tmpl_main2->output();

##</code><code>##

#!/usr/bin/perl
use CGI ':standard';
print header();
print param('key');

##</code><code>##

@names = $CGI->param;

##</code><code>##

$tmpl_main1->param(passCGI   => \@names);