1秒以下の細かい単位で時間を測定したいとき

use Time::HiRes

を使えばよいらしい。