1#!/usr/bin/perl
2print "Content-type: text/plain\n\n";
3read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
4print $buffer;
5exit 0;
6