Time a function

Follows modern trend toward measuring wall-clock time, since CPU time is becoming rather ill-defined in the age of multicore, and doesn't reflect IO overhead in any case.

my $start = now;
(^100000).pick(1000);
say now - $start;

Output:

0.02301709