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