#!/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");
  }
}