use strict; use Time::HiRes qw(gettimeofday tv_interval); my ($sec1, $micro1)=gettimeofday(); print "start: second $sec1, micro-second $micro1\n"; #start: second 1302882969, micro-second 850559 my ($sec2, $micro2)=gettimeofday(); print "end: second $sec2, micro-second $micro2\n"; #end: second 1302882969, micro-second 850589 my $diff=tv_interval([$sec1, $micro1], [$sec2, $micro2]); print "time difference: $diff\n"; #time difference: 0.000145