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