#!/usr/bin/perl
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
print "Content-Type: text/html\n\n";
print $buf;