perl性能测试－时间

use Time::HiRes 'time';

my $start=time;

my $usetime=time-$start;

printf "took %.1f seconds.\n",$usetime;