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

STDOUT->autoflush(1);

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

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

$child->kill;
$child->join;