ioctl($sock, 0x8004667e, pack("I", 1));  # Sets non-blocking
ioctl($sock, 0x8004667e, pack("I", 0));  # Sets blocking