my $rb = defined $r ? $r->[VEC_BITS] : undef;
 my $wb = defined $w ? $w->[VEC_BITS] : undef;
 my $eb = defined $e ? $e->[VEC_BITS] : undef;

 print "After definition ".select($rb,$wb,$eb,$t)."\n";

 if(select($rb,$wb,$eb,$t) > 0)