use strict;
use warnings;

use IO::Select;
use IO::Socket::INET;

my $server = IO::Socket::INET->new(Proto => "tcp", LocalAddr => "localhost", LocalPort => 3000, Listen => 10);
my $selector = IO::Select->new();
{
	my $connection = $server->accept();
	print "First client connected\n";
	$selector->add($connection);
}
{
	my $connection = $server->accept();
	print "Second client connected\n";
	$selector->add($connection);
}

while (1) {
	for my $reader ($selector->can_read()) {
		my $line = <$reader>;
		print $line;
	}
}