use CGI ();

my $cgi = CGI->new;

print("Content-Type: text/plain\n\n");

# Loop over each parameter.
foreach my $param_name ($cgi->param) {
   # Loop over each value of the parameter.
   foreach my $value (@{$cgi->param($param_name)}) {
      print "$param_name = $value\n";
   }
}