use Child qw/child/;

my @childs;
for my $i (1 .. 65) {
    push @childs, child {
        my $parent = shift;

        $parent->say("[return $i]");
    } pipe => 1;
}

print $_->read for @childs;

the above code doesn’t print anything under strawberry 5.38.2

It does however when number of childs is 64. Is there a way to avoid such limit?