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

1. use Time::HiRes;  
2. my $start_time = Time::HiRes::time;  
3.   
4. #--------------  
5. #てきとーな処理  
6. #--------------  
7.   
8. #処理時間を計算して小数点以下を3桁に丸めて表示  
9. printf("%0.3f",Time::HiRes::time - $start_time);  

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

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

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