method run_fcgi { # validate if fast cgi is available try { use CGI::Fast; use FCGI; } catch { print CGI::header; print CGI::div(q{ sorry, fastcgi is not available on this server. (missing CGI::Fast or FCGI - could not be loaded) fix this or run as cgi }); exit; }; # setup disptacher my $disp = $self->_get_dispatcher; $disp->setup; # fcgi loop $ENV{'_persistent'} = 1; while (my $cgi = new CGI::Fast) { $ENV{'_start_time'} = Benchmark->new; # reset timer $ENV{'_persistent'}++; $disp->route($cgi); } }