gettimeofday()
В контексте массива возвращает двухэлементный массив с
секундами и микросекундами с начала эпохи. В скалярном контексте
возвращает секунды (с плавающей точкой) как Time::HiRes::time()
tv_interval ( $ref_to_gettimeofday [, $ref_to_later_gettimeofday] )
Возвращает секунды секунды (с плавающей точкой) между двумя значениями, которые должны были быть возвращены gettimeofday (). Если
второй аргумент опущен, используется текущее время. документация
use Time::HiRes qw(gettimeofday tv_interval);
my $startTime = [ gettimeofday ];
# some actions
my $endTime = [ gettimeofday ];
my $elapsed = tv_interval($startTime,$endTime);
print "TIME: $elapsed\n";
Time::HiRes::time