#!/usr/bin/perl

BEGIN {
   $ENV{FCGI_SOCKET_PATH} = "127.0.0.1:9090";
   $ENV{FCGI_LISTEN_QUEUE} = 5;
}
use CGI::Fast;
use FCGI::ProcManager;
my $proc_manager = FCGI::ProcManager->new({ n_processes => 1 });
$proc_manager->pm_manage();
my $count = 0;
while(my $query = CGI::Fast->new()) {
	$proc_manager->pm_pre_dispatch(); 
    $count++;
    print <<TEXT;
Content-Type: text/html

<h1>hello</h1>
$count
<hr>
TEXT
    print "$_ = $ENV{$_}<br>\n" foreach sort keys %ENV;
    print "<hr>\n";
    print "$_ = ", $query->param($_), "<br>\n" foreach sort $query->param();
    $proc_manager->pm_post_dispatch(); 
}