Select Code to Download

#!/usr/bin/perl

...
} else {
    print "$0: getaddrinfo() failed - error = $err\n";
}

C:\> test.pl  www.google.com
getaddrinfo()/getnameinfo() Address = 172.217.15.100
 |_>   getnameinfo()           Name = iad30s21-in-f4.1e100.net