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";
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.