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