use Time::HiRes 'time';

my $before=time();
#do stuff here
my $after=time();
my $howlong=$after-$before;