Re: Retrieving all hostnames for an IP address...

[idsfa]

use Socket;

for my $ipnum (@list)
{
  my $iaddr = inet_aton($ipnum);
  my ($name,$aliases,$addrtype,$length,@addrs)  = gethostbyaddr($iaddr
+, AF_INET);

  print "$ipnum -> $name,$aliases\n";
}