Time::HiRes, sleep(), time()

use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以取代perl内置的相应函数。

其中，sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒；

time()可以返回浮点数。

#!/usr/bin/perl 
use strict; 
use Time::HiRes qw(sleep time); 

$| = 1; 
my $before = time; 
for my $i (1..100) 
{ 
   print "$i\n"; 
   sleep(0.01);    
} 
printf("time used : %.5f seconds\n", time - $before); 
exit 0;