Select Code to Download

    use Benchmark::Timer;
    $t = Benchmark::Timer->new(skip => 1);
...
    }   

    $t->report;

$ perl -MDevel::Profiler your_script.pl

$ dprofpp

# in httpd.conf
 PerlModule Devel::Profiler::Apache;

 # or in startup.pl
 use Devel::Profiler::Apache;