Select Code to Download

use Socket qw( getaddrinfo getnameinfo );

my ( $err, @addrs ) = getaddrinfo( $ARGV[0], 0 );
...

my ( $err, $hostname ) = getnameinfo( $addrs[0]->{addr} );
die $err if $err;

use Socket::GetAddrInfo::Strict qw( getaddrinfo, getnameinfo );

my @addrs = getaddrinfo( $ARGV[0], 0 );

my ( $hostname ) = getnameinfo( $addrs[0]->{addr} );