ioctl($sock, FIONBIO, unpack("I",pack('P',$nonblocking))) == 0 or 
+die "ioctlsocket(\$sock, FIONBIO,...):$!" ; 
...
        ioctl($hand, FIONREAD, unpack('I',pack('P',$numbytes))) == 0 o
+r die "ioctlsocket(\$hand, FIONREAD,...):$!" ;

##</code><code>##

    ioctl($sock, FIONBIO, unpack("Q",pack('P',$nonblocking))) == 0 or 
+die "ioctlsocket(\$sock, FIONBIO,...):$!" ; 
...
        ioctl($hand, FIONREAD, unpack('Q',pack('P',$numbytes))) == 0 o
+r die "ioctlsocket(\$hand, FIONREAD,...):$!" ;