Si se trata de medir tiempos, yo usaría el módulo
Benchmark. Pero el truco consistiría en hacer el cálculo unas 1000 veces, ya que los microsegundos (millonésimas de segundo) no es común encontrarlo en ordenadores personales. A lo sumo, milisegundos.
Depende también del sistema operativo. Si el sistema permite la llamada gettimeofday, entonces se puede usar el módulo
Time::HiRes que es justo lo que necesitas.
Using perl Syntax Highlighting
use Time
::HiRes qw( clock
);
my $clock0 = clock
();
... # Hacer algo.
my $clock1 = clock
();
my $clockd = $clock1 - $clock0;Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4