#!/usr/bin/perl
use strict;
use FCGI;
use Data::Dumper;
use IO::Handle;
my $count = 0;
my $in = new IO::Handle;
my $out = new IO::Handle;
my $err = new IO::Handle;
my $r = FCGI::Request($in,$out,$err);
while($r->Accept() >= 0) {
my $me = `whoami`;
$out->print( "Content-type: text/html\r\n\r\n");
$out->print( "<pre>");
$out->print( "Count: ",($count+=3),"\n");
$out->print( "Me: $me\n");
$out->print( "Env: " . Dumper(\%ENV) . "\n");
$out->print( "Len: " . $ENV{'CONTENT_LENGTH'} . "\n");
if($ENV{'CONTENT_LENGTH'}) {
my $len = $ENV{'CONTENT_LENGTH'};
my $buf;
read(STDIN,$buf,$len);
$out->print( "POST ($len): $buf\n");
}
}