perl -MIO::Socket::INET6 -E "my $sock = IO::Socket::INET6->new(PeerHost => 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