if ($opt{new}) { my @getaddr = getaddrinfo($ARGV[0], 0); my $address; # Get the pointer to the address itself, different fields in IPv4 and IPv6 if ($getaddr[0] == AF_INET) { $address = (unpack_sockaddr_in($getaddr[3]))[1] } else { $address = (unpack_sockaddr_in6($getaddr[3]))[1] } my $host = inet_ntop($getaddr[0], $address); # printf "NEW: getaddrinfo() = %s\n", $getaddr[3]; print "NEW: inet_ntop() Address = $host\n"; }