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]