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; }