Select Code to Download

my $server = IO::Socket::INET->new(LocalPort => 5000,
                                   Listen    => 10,  
...
                        }              
                }
        }

my $select = IO::Select->new();
$select->add($server);  $select->add($serverB);