$nonblocking = 1;
ioctl($sock, 0x8004667e, \$nonblocking);