Из IP в имя:
   use Socket;
   my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET);

Из хоста в IP:
   use Socket;
   my $ip = inet_ntoa((gethostbyname("www.test.ru"))[4]);

URL:
Обсуждается: http://www.opennet.me/tips/info/844.shtml

• Как в perl выполнить DNS преобразование IP в имя и наоборот.,Andrey, 17:34 , 04-Май-05
• Как в perl выполнить DNS преобразование IP в имя и наоборот.,Кирилл_Н, 13:25 , 12-Авг-10

use Net::hostent;

  use Net::DNS;
  my $res   = Net::DNS::Resolver->new;
  my $query = $res->search("www.test.ru");

  if ($query)
  {
     foreach my $rr ($query->answer)
     {
        next unless $rr->type eq "A";
        print $rr->address, "\n";
     }
  }

Возвращает не один адрес, а все указанные для этого ДНС имени