#!/usr/bin/perl BEGIN { $INC{'IO::Socket::INET6'} = undef; } use strict; use warnings; use IO::Socket::SSL 'inet4';