Perl 実行時間をミリ秒まで取得

use Time::HiRes;
$start = Time::HiRes::time;
$stop = Time::HiRes::time;
#実行時間
$speed = $stop - $start;

($wtime, $msec) = split(/\./, $speed);