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