$ioioio = new IO::Socket::INET( 
        Proto     => "udp",
        LocalPort => $port,
        Blocking  => 0,
    ) or die "socket is dumb: $!"


##</code><code>##

fcntl($ioioio, F_SETFL, O_NONBLOCK);