#!C:\perl\bin\perl.exe -wT
use strict;
use CGI;

my $query = CGI->new;
my @names = $query->param; # Yup.  That's all it takes to get all names 
                           # from name/value pairs.

print $query->header( "text/plain" ); # This is just to show that we can
                                      # specify our Content-type

foreach my $name ( @names ) {
    # If we know that a particular name only has one value, we can use
    # my $value = $query->param( $name );
    # However, if we assign the param to a scalar and there are multiple
    # values, we'll only get the first one.

    my @values = $query->param( $name );
    print $name . "=" . (join ", ", @values) . "\n";
}