Select Code to Download

my $server = IO::Socket::INET->new( %params, Blocking => 0 );

IO::Handle::blocking($server, 0);