Socket fun in perl 6

inet_fun.p6

# echo -n "Joy\r\n\r\n" | nc 127.0.0.1 12321

# [bpm@Orfgum] c:~/playground>/opt/rakudo-star-2016.04/bin/perl6 --version
# This is Rakudo version 2016.04 built on MoarVM version 2016.04
# implementing Perl 6.c.

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