Select Code to Download

use strict;
use warnings;
use CGI;

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);