use strict;
use warnings;

use MCE::Hobo;
use Time::HiRes 'time';

sub mhobo ($$&) {
    my ($count, $max, $code) = @_;

    foreach my $c (1 .. $count) {
        MCE::Hobo->waitone() unless $c <= $max;
        exit(255) unless defined (my $h = MCE::Hobo->create($code, $c));
    }

    MCE::Hobo->waitall();
}

my $start = time;

mhobo(12, 4, sub { my $x = 3e7; $x-- while $x; print "$$\n"; });

printf "Seconds: %0.03f\n", time - $start;