my $stamp = time;
# do stuff
my ($usr, $sys) = (times)[0,1];
my $cpu = $usr + $sys;
my $wallclock = time - $stamp;