package FCGI::ProcManager::Debug; use strict; use warnings; use base qw/FCGI::ProcManager/; sub pm_manage { my $res = shift->SUPER::pm_manage(@_); # manager does not return pm_manage, so below code should run in server only $0 = 'perl-fcgi (waiting)'; $res; } sub pm_pre_dispatch { $0 = sprintf('perl-fcgi (started %s)', scalar localtime); shift->SUPER::pm_pre_dispatch(@_); } sub pm_post_dispatch {