关于perl脚本执行时间的问题

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