#!/usr/bin/perl
print "Content-type: text/html\n\n<html><body><table border=0>";         

read STDIN, $query, $ENV{'CONTENT_LENGTH'};
print 'Post-Data: ' . $query;

print "<HR>";

for(keys %ENV)
{
	print "<tr><td>$_</td><td $c>\"$ENV{$_}\"</td></tr>";
}
print '</table>';