gistfile1.txt

my $socket = IO::Socket::INET.new:
    localhost => '127.0.0.1',
    localport => 12321,
    listen    => 1;
 
while $socket.accept -> $conn {
    say "Accepted connection";
    await start {
        say "Started";
        while $conn.recv(:2elems) -> $stuff {
            say "Recv: $stuff";
        }
        $conn.close;
    }
}

zoffix@VirtualBox:~/CPANPRC$ perl6 test.p6 
Accepted connection
Started
Tried to read() on a socket from outside its originating thread
  in block <unit> at test.p6 line 8