#!/usr/bin/env perl

use strict;
use warnings;
use MCE::Hobo;
use feature qw(say);
use constant AMOUNT => 0.001;

my $cores = MCE::Util::get_ncpu();

MCE::Hobo->init(
    max_workers => $cores,
    void_context => 1,
    posix_exit => 1,
);

sub consumer_task {
    my $id = shift;
    say qq($id ) . MCE::Hobo->pid();
    qx( sleep @{[ AMOUNT ]} ); 
}

for my $id ( 1..800 ) {
    my $hobo = MCE::Hobo->create( \&consumer_task, $id );
}

MCE::Hobo->wait_all();