time perl -MTime::HiRes -le 'print ((Time::HiRes::gettimeofday())[1]) for (1..500)'