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

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