in reply to ioctl for non-blocking and blocking in Windows

I had so many Firefox tabs on this subject open, that I missed the one that had the solution. Link 
ioctl($sock, 0x8004667e, pack("I", 1));  # Sets non-blocking
ioctl($sock, 0x8004667e, pack("I", 0));  # Sets blocking

[download]

In Section Seekers of Perl Wisdom