Select Code to Download

use IO::Handle qw( );

...
   return 0 if $!{EAGAIN} || $!{EWOULDBLOCK};
   return undef;
}