if ($^O =~ /win/i) { my $nonblocking=1; ioctl($socket, 0x8004667e, \$nonblocking); }