VinsWorldcom@C:\Users\VinsWorldcom\tmp> cat test.pl
use Socket qw( getaddrinfo getnameinfo );

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

my ( $err, $hostname ) = getnameinfo( $addrs[0]->{addr} );
die $err if $err;
VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
"getaddrinfo" is not exported by the Socket module
 "getnameinfo" is not exported by the Socket module
Can't continue after import errors at C:\Users\VinsWorldcom\tmp\test.pl line 1
BEGIN failed--compilation aborted at C:\Users\VinsWorldcom\tmp\test.pl line 1.

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perldoc Socket | grep getnameinfo

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perldoc Socket | grep getaddrinfo

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl -MSocket -e "print $Socket::VERSION"
1.87_01