$nonblock = 1;
ioctl($sock, POSIX_FIONBIO, \$nonblock); # !!WRONG