Async IO in Perl 6

gistfile1.txt

my $l = IO::Socket::INET.new(
    :localhost('localhost'),
    :localport(6666),
    :listen
);

my @readers;

sub check-readers(@readers is rw) {
    my @keepers;
    for @readers {
        if $_.poll(1, 0.10) {
            my $a = $_.recv;
            if $a {
                print $a;
                @keepers.push($_);
            } else {
                say "something closes";
                $_.close;
            }
        } else {
            @keepers.push($_);
        }
    }
    @readers = @keepers;
}

loop {
    if $l.poll(1, 1) {
        say "can read!";
        my $a = $l.accept();
        @readers.push($a);
    } else {
        say "cannot read :(";
    }
    check-readers(@readers);
}