Select Code to Download

>perl -MIO::Socket::IP -e "print$IO::Socket::IP::VERSION"
0.37
>perl -MSocket -e "print$Socket::VERSION"
2.021

Output :: 
perl -MIO::Socket::IP -E "my $sock = IO::Socket::IP->new(PeerHost => q
+q(2620:0:1aa0:8070:1:88:200:e78f),  PeerPort => 80, Timeout => 10 ) o
+r die $@;  say $sock->peerhost"
nodename nor servname provided, or not known at -e line 1.

perl -MIO::Socket::INET6 -E "my $sock = IO::Socket::INET6->new(PeerHos
+t => qq(2620:0:1aa0:8070:1:88:200:e78f),  PeerPort => 80, Timeout => 
+10 ) or die $@;  say $sock->peerhost"
2620:0:1aa0:8070:1:88:200:e78f

cpan > force install Socket