sub removeSocket {
    my ($self, $socket) = @_;
    my $select = $self->{'select'};
    print STDERR 'dumping: ',Dumper $socket;
    my @handles = $select->handles();
    print STDERR '>>before: ',Dumper \@handles;
    my $retVal = $select->remove($socket);
    print STDERR $retVal, $/;
    my @handles2 = $select->handles();
    print STDERR '>>after: ',Dumper \@handles2;
}