use Time::HiRes qw(gettimeofday);
my $start=gettimeofday;
next part of code...
my $next=gettimeofday;
printf "time spended  %.4f" ,($next-$start);
next part of code...
my $next_1=gettimeofday;
printf "time spended  %.4f" ,($next_1-$next);