use Time::HiRes qw(clock_gettime CLOCK_PROCESS_CPUTIME_ID) ;

  my $cpu = clock_gettime(CLOCK_PROCESS_CPUTIME_ID) ;