use Time::HiRes qw(gettimeofday);$start_time=gettimeofday;#你的代码$end_time=gettimeofday;print $end_time-$start_time; #程序运行消耗的时间。