#!/usr/bin/perl
use CGI;
my $q = new CGI;
my @keys = $q->param;
print "Content-type: text/plain\n\n";
print "$_ ",$q->param($_),"\n" for (@keys);