use warnings;
use strict;
use IO::Select;
use IO::Socket;

my $sock = IO::Socket::INET->new( Listen=>1, ReusePort=>1,
	LocalAddr=>'127.0.0.1', LocalPort=>1235 ) or die "sock: $@";
my $sel = IO::Select->new($sock);

while ( my @ready = $sel->can_read ) {
	for my $fh (@ready) {
		if ($fh == $sock) {
			my $cli = $sock->accept;
			print "New client\n";
			$sel->add($cli);
			syswrite $cli, "x";
		}
	}
}