I have been tracking the time it takes to execute my scripts using Benchmark. Recently I converted from using mod_perl Registry to making the script a handler. My results when using Registry were random, however as a handler my results are always a multiple of .01562500.

use Benchmark;
use Time::HiRes qw(gettimeofday tv_interval);

sub handler {

   my $start_time = new Benchmark;

   some subs;

   my $end_time = new Benchmark;

   my $compute_time = timediff($end_time, $start_time);
}
[download]

I've also tried this:

use Time::HiRes qw(gettimeofday tv_interval);

sub handler {

   my $start_time = [ gettimeofday ];

   some subs;

   my $end_time = [ gettimeofday ];

   my $compute_time = tv_interval($start_time_t,$end_time_t);
}
[download]

with the same results. (0.01562500, 0.03125000, 0.04687500,...)

EDIT for simonm: Win2000, Perl version v5.8.4, Apache/2.0.50, mod_perl 1.9916, Benchmark 1.06, Time::HiRes 1.59