$sock = IO::Socket::INET->new(etc.);
$sock->blocking(0);