my $server = IO::Socket::INET->new(LocalPort => 5000,
                                   Listen    => 10,  
                                   Reuse     => 1) 
        or die "Can't make server socket: $@\n";
my $serverB = IO::Socket::INET->new(LocalPort => 5050,
                                   Listen    => 10,   
                                   Reuse     => 1) 
        or die "Can't make server socketB: $@\n";    

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

while (1) {
        foreach my $client ($select->can_read(1)) {
                if ($client == $server) {
                        $client = $server->accept();
                        $select->add($client);      
                        print $client "Howdy\n";
                } else {
                        print $client "G'bye\n";
                        $select->remove($client);     
                        close($client);          
                        }              
                }
        }