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