Added test perl code for Time::HiRes.