#! /usr/bin/perl
use strict;
use CGI qw(header param);
print header(type => "text/plain");
foreach my $param (param()) {
  print "$param:\n";
  foreach my $value (param($param)) {
    print "  $value:\n";
  }
}