#!/usr/bin/perl
use strict; use warnings;
use CGI;

sub headers {
	print "HTTP/1.1 200 OK\r\n";
	print "Content-Type: text/plain\r\n\r\n";
}

sub cgi_new {
       if (($ENV{REQUEST_METHOD}||"") eq "POST") {
               my $post = $ENV{REQUEST_BODY_1};
               if (!defined $post) { $post = ""; }
               my $len = $ENV{CONTENT_LENGTH};
               if (defined $len && ($len -= length($post)) >= 0) {
                       read(STDIN, $post, $len, length($post));
               } else {
                       $post .= join "", <STDIN>;
               }
               return CGI->new($post);
       } else {
               return CGI->new();
       }
}

my $q = cgi_new();

headers();

print "$ENV{REQUEST_METHOD}\n";

for my $key ($q->param) {
	my $value = $q->param($key);
	print "$key: $value\r\n";
}