Select Code to Download

Platform:
 osname=linux, osvers=2.6.24-27-server, archname=i486-linux-gnu-thread
+-multi
 uname='linux vernadsky 2.6.24-27-server #1 smp fri mar 12 01:45:06 ut
+c 2010 i686 gnulinux '

package IO::Select;
use constant { HANDLES => 0, BITS => 1 };
...
    my $self = shift;
    return grep defined(), @{ $self->[HANDLES] };
}