C:\Documents and Settings\Administrator>perl -MIO::Socket::SSL -e "print $IO::Socket::SSL::VERSION"
1.13
C:\Documents and Settings\Administrator>perl -v

This is perl, v5.10.0 built for MSWin32-x86-multi-thread

##</code><code>##

#ioctl($socket, 0x8004667e, pack("I", 1));
$socket->blocking(0);