my $socket = IO::Socket::INET->new(.....);
$socket->blocking(0);