use Time::HiRes qw( gettimeofday );
($seconds, $microseconds) = gettimeofday;