Select Code to Download

use strict;
use warnings;
...
   $param{$name} = $q->param($name);
   print "$name: $param{$name}", $q->br;
}

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