$query = new CGI;
print $query->header();

foreach($query->param())
{
	print $_ ;
}
print $ENV{'CONTENT_LENGTH'};
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print $buffer;	#just for testing purposes