ある処理が終わるまでの時間を測りたいなーってことがあると思います。 そういう時は以下のようにTime::HiRes::Time()を使う use strict; use warnings; use Time::HiRes qw(time); my $start = time; # 計測したい処理 print $start - time; のではなく、Time::HiRes::getimeofdayとTime::HiRes::tv_intervalを使った方がより正確みたいですね! use strict; use warnings; use Time::HiRes qw(gettimeofday tv_interval); my $start = [gettimeofday]; # 計測したい処理 printf "%.6f", tv_interval $start, [gettimeofda