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