It seemed to good to be true and it was:

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.p
+l line 1
BEGIN failed--compilation aborted at C:\Users\VinsWorldcom\tmp\test.pl
+ line 1.

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perldoc Socket | grep getnamei
+nfo

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perldoc Socket | grep getaddri
+nfo

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl -MSocket -e "print $Socke
+t::VERSION"
1.87_01
[download]

While the latest version of Perl Socket (5.14.x) seems to support getXXXXinfo functions; remember, my original query asked for Windows 7, Strawberry Perl 5.12.3.