1561ee011997c6c2f1befbfaa9d5f0a99771c1d63Elliott Hughes#!/usr/bin/perl 2561ee011997c6c2f1befbfaa9d5f0a99771c1d63Elliott Hughesprint "Content-type: text/plain\n\n"; 3561ee011997c6c2f1befbfaa9d5f0a99771c1d63Elliott Hughesread(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 4561ee011997c6c2f1befbfaa9d5f0a99771c1d63Elliott Hughesprint $buffer; 5561ee011997c6c2f1befbfaa9d5f0a99771c1d63Elliott Hughesexit 0; 6