#!/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>';