use Time::HiRes qw(clock_gettime CLOCK_REALTIME) ;

  my $t = clock_gettime(CLOCK_REALTIME) ;  # same as: my $t = Time::HiRes::time()