#!/usr/bin/perl

use IO::Select;
use Data::Dumper;

$sel = IO::Select->new(STDIN, STDOUT, STDERR);

@hand = $sel->handles();
print  Dumper \@hand;

$sel->remove(STDIN);

@hand = $sel->handles();
print  Dumper \@hand;

##</code><code>##

$VAR1 = [
          'STDIN',
          'STDOUT',
          'STDERR'
        ];
$VAR1 = [
          'STDOUT',
          'STDERR'
        ];

##</code><code>##

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;
}

##</code><code>##

dumping: $VAR1 = \bless( \*Symbol::GEN1, 'IO::Socket::INET' );
>>before: $VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];
0
>>after: $VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];