use Time::HiRes; warn "Begin: " . Time::HiRes::time; #### warn "End: " . Time::HiRes::time;