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