use strict;
use warnings;
use MCE::Child;
use Time::HiRes qw(sleep time);

STDOUT->autoflush(1);

sub background {
    my $id = shift;
    while (1) {
        MCE::Child->yield(0.200);
        print "Inside child #${id} ", time, $/;
        sleep 0.1;   # simulate work
    }
}

MCE::Child->create(\&background, $_) for 1..2;

for (1..5) {
    print "Parent ", $_, $/;
    sleep 1;
}

$_->kill->join for MCE::Child->list;