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

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

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