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);
}

##</code><code>##

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);
}