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