perl Time-HiRes Time::HiRes