use warnings; use strict; use Time::HiRes; my ($epochSecs, $epochUSecs) = Time::HiRes::gettimeofday (); print "$epochSecs $epochUSecs $Time::HiRes::VERSION"; #### 1320191917 602197 1.9724