use CGI::Fast;
BEGIN {
    $ENV{FCGI_SOCKET_PATH} = "sputnik:8888";
    $ENV{FCGI_LISTEN_QUEUE} = 100;
}
&do_some_initialization();
while ($q = new CGI::Fast) {
    &process_request($q);
}