#!/usr/bin/perl

use strict ;
use warnings ;

use FCGI ;
use FCGI::ProcManager ;

my $pm= FCGI::ProcManager->new() ;
my $socket= FCGI::OpenSocket(':8003', 10) ;
my $request= FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket) ;

$pm->pm_manage() ;
while ($request->Accept>=0) {
    $pm->pm_pre_dispatch() ;
    doit() ;
    $pm->pm_post_dispatch() ;
}
FCGI::CloseSocket($socket);


sub doit {
    print <<EOR ;
Status: 200 OK
Content-Type: text/plain
Transfer-Encoding: chunked
Connection: close

5
hello
6
 world
0

EOR
}