[perl #125656] Creating too many Proc::Async objects fills the file descriptor table, which causes libuv to abort()

[via RT]

# New Ticket Created by  Rob Hoelz 
# Please include the string:  [perl #125656]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125656 >


See the attached script.
use v6;

my @procs;

for ^1000 {
    .say;

    my $proc = Proc::Async.new('sleep', '20', :w);
    $proc.stdout.tap(-> $ {});
    $proc.start;

    @procs.push: $proc;
}

say 'done';