Writing a TCP Server

Author: stmuk

You want to write a TCP Server to listen on a socket

Source code: 17-02tcp_server.p6

#!/usr/bin/env perl6

use v6;

my $s = IO::Socket::INET.new( :localport(1024), :type(1), :reuse(1),
                              :listen(10));

while my $c = $s.accept()  {
    say $c.get;
}