ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/times

Text File | 1992-10-18 | 161 b | 7 lines

($user, $system, $cuser, $csystem) = times;

$start = (times)[0]; # presumes $[ = 0
...
$end = (times)[0];
printf "that took %.2f CPU seconds\n", $end - $start;