Select Code to Download

# create the worker processes
spawn task($barrier, $_) for 1..5;

MCE::Simple::_reap_joinable();
do { MCE::Simple::_async_i('', \&task, $barrier, $_) } for 1..5;

use strict;
use warnings;
...
)->run();

printf {*STDERR} "\nduration: %0.3f\n\n", time() - $start;