#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;

print $cgi->header( "text/plain;charset=iso-8859-1" );
print "These are the results I received:\n\n";

foreach my $name ($cgi->param) {
    foreach my $value ( $cgi->param( $name ) ) {
        print $name, ": ", $value, "\n";
    }
}