use CGI;
my $q= new CGI;

print "content-type: text/plain\n\n";

if ($q->param()) {
  print "got param $_\n" for ($q->param());
}

print "the end\n";