in reply to How do I do a non-blocking accept?

Under Windows this will work: 
  if ($^O =~ /win/i) {
    my $nonblocking=1;
    ioctl($socket, 0x8004667e, \$nonblocking);
  }

[download]

In Section Seekers of Perl Wisdom