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

my ($sckt_one, $sckt_two, $s);

$sckt_one = IO::Socket::INET->new ( PeerAddr => "localhost",
                PeerPort=> 9000, Proto => "tcp",
                Type => SOCK_STREAM );

die "Could not create socket:1: $!\n" unless $sckt_one;

$sckt_two = IO::Socket::INET->new ( PeerAddr => "localhost",
                PeerPort=> 9001, Proto => "tcp",
                Type => SOCK_STREAM );
die "Could not create socket:2: $!\n" unless $sckt_two;

$s = IO::Select->new($sckt_one, $sckt_two);

while(@ready = $s->can_read) {
    foreach $fh (@ready) {
        print <$fh>;
    }
}