use strict;
use CGI;

my $q = CGI->new();

for my $p ( $q->param ) {
  my @vals = $q->param( $p );
  print "$p: @vals<br>\n";
}