#!/usr/bin/perl -w

use strict;

	local $| = 1;

	print "Content-Encoding: iso-8859-1\015\012",
				"Content-Type: text/plain\015\012",
				"\015\012";

	warn "DEBUG: the content length is $ENV{CONTENT_LENGTH}\n";

	my $returncode = read(STDIN, my $post_content, $ENV{CONTENT_LENGTH});

	warn "DEBUG: the read returncode was $returncode\n";
	warn "DEBUG: Finished.";