#!/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;