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

请问关于perl脚本执行时间的问题
有没有一个函数能获得本次程序执行的时间呢？

我写了个扫描器，想在扫描.
我写了个扫描器，想在扫描完成后显示这次扫描的时间，我不知道怎么实现这个计时的功能，希望大家指点

记得在perl cookbook上看到这样的方法。
-------------------------------------------------------------
use Time::HiRes qw(gettimeofday);
$start_time=gettimeofday;
#你的代码
$end_time=gettimeofday;
print $end_time-$start_time; #程序运行消耗的时间。