#! perl
use strict;
use warnings;
use Socket qw(:addrinfo SOCK_RAW);

my $hostname = 'perlmonks.pair.com';

my ($err, @res) = getaddrinfo($hostname, "", { socktype => SOCK_RAW });
die "Cannot getaddrinfo - $err" if $err;

while (my $ai = shift @res)
{
    my ($err, $ipaddr) = getnameinfo($ai->{addr}, NI_NUMERICHOST, NIx_NOSERV);
    die "Cannot getnameinfo - $err" if $err;

    print "$ipaddr\n";
}

##</code><code>##

22:41 >perl 1602_SoPW.pl
209.197.123.153

22:42 >