Thanks for this useful gem!

When porting TkClient.pl to run on 64 bit perl, i had to change these two constructs

    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,...):$!" ;
[download]

to

    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,...):$!" ;
[download]

since the size of integer (4 bytes) was too small to hold the address from the pointer on Strawberry Perl 5.38.0 64 bit.