Perl高精度计时器

use strict ;
use Time::HiRes qw(gettimeofday) ;

sub Test
{
? ? # sec: seconds
? ? # usec: microsecond
? ? my ($start_sec,$start_usec) = gettimeofday() ;
? ??
? ? #======================#
? ? # Place your code here!#
? ? my ($end_sec,$end_usec) = gettimeofday() ;
? ? # Compute time elipsed
? ? my $timeDelta = ($end_usec - $start_usec) / 1000 + ($end_sec - $start_sec) * 1000;
? ? print $timeDelta ;
}
&Test() ;
?;