This works for me on Win32 ActivePerl

#/usr/bin/perl -w
use strict;
use Socket;
my $host = "www.yahoo.com";
my @addresses = gethostbyname($host)   or die "Can't resolve $host: $!
+\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print "The next set is @addresses \n";
[download]

No credit to me.. this is a snippet that I got from some book or the other.. but I use it and it works for me

The following is the complete code for both ways..

#/usr/bin/perl -w
use strict;
use Socket;

my $host = "www.yahoo.com";
my $packed_ip = gethostbyname($host)
    or die "Unable to resolve '$host'\n";
my $ipaddr = inet_ntoa($packed_ip);
print "$ipaddr for $host\n";
my $packed_add = gethostbyaddr($ipaddr, AF_INET);
my $hostname = inet_aton($packed_add) or die "Can't reverse lookup \n"
+;
print "The host name for $ipaddr is $hostname \n";

my $name = "www.perl.com";
my @addresses = gethostbyname($host)   or die "Can't resolve $name: $!
+\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print "The next set is @addresses \n";
[download]

Try this posting for a much easier way of doing it.. Net::DNS
Update: Fixed tyop :)
Update 2: Gave both forward and reverse lookup code

I think you probably misread this example:

($port, $iaddr) = sockaddr_in(getpeername(Socket_Handle));
$peer_host = gethostbyaddr($iaddr, AF_INET);
$peer_addr = inet_ntoa($iaddr);
[download]

(gethostbyaddr(gethostbyname($ipaddr), AF_INET))[0]
[download]

p.s. chomp $ipaddr or it'll continue to fail, but in a new and interesting way!

Is IO::Sockets the same syntax

#!/usr/bin/perl -w

use strict;
use Socket;
my $ip = $ARGV[0] || undef;

unless ($ip) {
    print "What is the IP?\n";
    $ip = <STDIN>;
    chomp $ip;
}

die "No IP given\n" if !$ip;
print "Finding host for $ip...\n";
my $iaddr = inet_aton($ip);
my $name = gethostbyaddr($iaddr, AF_INET) || "NO DATA";

print "$ip is $name\n";
[download]

Cheers,
KM