#!/usr/bin/perl print "Content-type: application/xml\n\n"; print "\n"; if ($ENV{'REQUEST_METHOD'} eq 'POST') { # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); print $buffer; } else { print "\n"; print "

Expected a POST

\n"; }