perlでミリ秒単位の処理時間を計測する

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

#--------------
#てきとーな処理
#--------------

#処理時間を計算して小数点以下を3桁に丸めて表示
printf("%0.3f",Time::HiRes::time - $start_time);