http://www.perlmonks.org?node_id=379223


in reply to IO::Socket::INET -- jettero verses non-blocking in windows

Hello, I've worked around this using:
my $true=1; ioctl($ioioio, 0x8004667e, \$true);
And then reading data with
sysread()
rather than <>. I haven't messed around with select() because this seems to work, although your mileage may vary.(Also, for the record, the IO::Handle::blocking() method suggested in #292856 fails but returns an empty $!.) Hope this helps, -jc