#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header;
print "<pre>\n";
print $_, "=", $q->param($_), "\n" for $q->param;
print "\n</pre>\n";