gistfile1.txt

#!/usr/bin/perl6
use v6;

my @clients;
my $max_id = 0;

sub handle-socket ($sock) {
	my $id = $max_id++;
	$sock.print("Hi! You are $id.\n");

	@clients>>.print("* $id connected\n");
	# aka: $_.print('stuff') for @clients
	@clients.push($sock);

	whenever $sock.chars-supply -> $bytes {
		@clients>>.print("{$id}: $bytes");
		LAST {
			@clients .= grep({ $_ !eqv $sock });
			@clients>>.print("* $id disconnected\n");
		}
	}
}

react {
    whenever IO::Socket::Async.listen('localhost', 3005) -> $sock {
		start {
			handle-socket($sock);
		}
    }
}