BEGIN {
    $ENV{FCGI_SOCKET_PATH} = "localhost:8888";
    $ENV{FCGI_LISTEN_QUEUE} = 100;
}
use CGI::Fast;
...
my $count;
while (my $cgi = new CGI::Fast) {
    ...
}