Select Code to Download

 my ($rready, $wready) = $sel->can([TIMEOUT]);

 my ($rready, $wready) = $sel->select([TIMEOUT]);

- shift
-   if defined $_[0] && !ref($_[0]);
...
+ } else { # called as IO::Select::select(...)
+   ($r,$w,$e,$t) = @_;
+ }