perl Time-HiRes