Help for this page

Select Code to Download

Select or download this

  use Time::HiRes qw(clock_gettime CLOCK_PROCESS_CPUTIME_ID) ;
  $start = clock_gettime(CLOCK_PROCESS_CPUTIME_ID) ; # replaces $start
+ = (times)[0]
  ...
  $end   = clock_gettime(CLOCK_PROCESS_CPUTIME_ID) ; # replaces $end  
+ = (times)[0]