use strict;
use CGI;

my $CGI = new CGI;

print $CGI->header, $CGI->start_html, $CGI->pre;

foreach my $name ($CGI->param) {
	print "$name = ", $CGI->param($name), "\n";
}

##</code><code>##

	my $value = join(",", $CGI->param($name)) || ''; 
	print  "$name = $value\n";