##
my $q = CGI->new;
my @names = $q->param;
my %param;
##
##
foreach my $name (@names)
##
##
{
$param{$name} = $q->param($name);
##
##
print "$name: $param{$name}", $q->br;
}
##
##
use strict;
use warnings;
use CGI;
my $q = CGI->new;
##
##
my %params = map { $_, $q->param($_) } ($q->param);
##
##
print join $q->br, map { "$_: $params{$_}" } ($q->param);