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