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