Select Code to Download

#! perl -slw
use strict;
...
$_->join for @threads;
my $end = time;
printf "Took %.6f seconds\n", $end - $start;

C:\test>1126584-q
[ 4] terminating at 1431869328.993618; having processed 280 values
...
[ 3] terminating at 1431869329.094198; having processed 190 values
[ 2] terminating at 1431869329.102986; having processed 225 values
Took 17.553564 seconds