Time::HiRes を使う (組み込みでなく Time::HiRes の)time 関数により、ミリ秒単位以下の epoch が取得できる。 ---- use Time::HiRes; $time = Time::HiRes::time; print "$time\n"; print time, "\n"; ---- 結果: 1099964346.03679 1099964346 time 組み込み関数をオーバレイする。 use Time::HiRes 'time'; $time = time; # Time::HiRes::time が実行される