Select Code to Download

$ diff hobo_test.pl threads_test.pl

...
> threads->create(\&foo, $_) for @names;
> $_->join() for threads->list();

use strict;
use warnings;
...

printf {*STDERR} "duration: %0.03f seconds\n", time - $start;

use strict;
use warnings;
...

printf {*STDERR} "duration: %0.03f seconds\n", time - $start;

# Mac OS X ( Perl v5.18.2 )

...
duration:  3.020 seconds
   50000

# Windows ( Cygwin Perl v5.22.3 )

...
$ perl foo4.pl > nul        # Thread::Queue
duration:  2.886 seconds

# TrueOS 10.0 ( FreeBSD, Perl 5.16.3 )

...
duration:  1.822 seconds
   50000