Perl中取出毫秒级定时信息

刚查了一下Time::HiRes的用法：它一般用来确定运行某个任务的所需的时间。 
如： 
     use Time::HiRes qw(gettimeofday tv_interval); 
     my $start_time = [gettimeofday]; 
     my $counter=0; 
     foreach (1..1000){ 
         $counter++; 
     } 
      
     my $interval=tv_interval($start_time,[gettimeofday]); 
     print “it take the time : $interval seconds\n"; 
  
可获得任务运行时间毫秒级的时间精度。