use CGI::Fast qw(:standard); use Benchmark qw(:all :hireswallclock) ; while (new CGI::Fast) { $ENV{'_starttime'} = Benchmark->new; }