#!/usr/bin/perl
print "Content-Type: text/html\n\n";
use CGI;
$query = new CGI;
foreach my $k ($query->param) {
my(@foo) = $query->param($k);
print "$k = @foo
\n";
}
#require "cgi-lib.pl";
#ReadParse(*params);
#
#print "RQ = $ENV{REQUEST_METHOD}
\n";
#foreach my $k (keys %params) {
# print "KEY:\"$k\"\tVAL:\"$params{$k}\"
\n";
#}
print "\n";
print "\n";
print "\n";