BEGIN {
    $ENV{FCGI_SOCKET_PATH} = "localhost:8888";
    $ENV{FCGI_LISTEN_QUEUE} = 100;
}
use FCGI::ProcManager;
use CGI::Fast;

my $proc_manager = FCGI::ProcManager->new({
    n_processes => 10,
});
$proc_manager->pm_manage();

...
my $count;
while (my $cgi = new CGI::Fast) {
    $proc_manager->pm_pre_dispatch();
    ...
    $proc_manager->pm_post_dispatch();
}