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; } } #### use strict; use warnings; use IO::Socket::INET; use IO::Select; my $connection = IO::Socket::INET->new(PeerAddr => "localhost", PeerPort => 3000, Proto => "tcp"); for (1 .. 100) { print $connection "$_\n"; sleep(1); }