http://qs321.pair.com?node_id=1116758


in reply to IO::Socket::SSL as IPV4

First, follow Athanasius' advice. Second, you can undef IO::Socket::IP. For example:
#!/usr/bin/perl BEGIN { $INC{'IO::Socket::INET6'} = undef; } use strict; use warnings; use IO::Socket::SSL 'inet4';
Do that for both the server and client.