Отчёт малых промежутков времени на perl

Можно вот так сделать:

#!/usr/bin/perl

require 'sys/syscall.ph';
$TIMEVAL_T = "LL";
$done = $start = pack($TIMEVAL_T, ());
syscall( &SYS_gettimeofday, $start, 0) != -1
or die "gettimeofday: $!";
#
# Estimated code
#
syscall( &SYS_gettimeofday, $done, 0) != -1
or die "gettimeofday: $!";
@start = unpack($TIMEVAL_T, $start);
@done  = unpack($TIMEVAL_T, $done);
# fix microseconds

for ($done[1], $start[1]) { $_ /= 1_000_000 }
printf "%.4f", ($done[0]  + $done[1]  )