use CGI;
my $cgi = new CGI();
my $param1 = $cgi->param('param1');
my $param2 = $cgi->param('param2');
..

##</code><code>##

@params = ('param1', 'param2', ..);
for $param (@params) {
 $$param = $cgi->param($param);
}

##</code><code>##

my @names = $cgi->param;

##</code><code>##

$cgi->import_names('Q');

##</code><code>##

print "bla bla $param1 bla\n";

##</code><code>##

print "bla bla " . $Q::param1 . " bla\n";