use strict;
use warnings;

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

my $connection1 = IO::Socket::INET->new(PeerAddr => "localhost", PeerPort => 3000, Proto => "tcp");
my $connection2 = IO::Socket::INET->new(PeerAddr => "localhost", PeerPort => 3001, Proto => "tcp");

my $selector = IO::Select->new();
$selector->add($connection1);
$selector->add($connection2);

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