#!/usr/bin/perl -w
######################################################################
# dumptest.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use CGI qw/:standard/;

foreach $name (param()) {       # iterate over all parameter names
    print "$name: ";            # output names
    @values = param($name);     # get values of a parameter
    print join(', ', @values), "\n";     # ... and output them
}