処理時間

perlスクリプトの処理時間

use Time::HiRes;
my $start_time = Time::HiRes::time;

#####################
# 処理
#####################

#処理時間を表示
printf("%0.3f",Time::HiRes::time - $start_time);