#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use CGI qw/:standard/;

foreach $name (param()) {       # Über alle Parameter-Namen 
                                # iterieren
    print "$name: ";            # Namen ausgeben
    @values = param($name);     # Werte eines Parameters holen
    print join(', ', @values), "\n";     # ... und ausgeben.
}