perl gethostbyaddr

может $ip_addr = inet_aton("xx.xx.xx.xx"); ?

Спасибо определяет. Но если адрес не резолвится, то пишет: 
Use of uninitialized value in concatenation (.) or string at ./perl.pl line 5.
А надо чтоб возвращал адрес в таком случае.

попробуй что-нить вроде

#!/usr/bin/perl -w
use Socket;
$a="xx.xx.xx.xx";
$ip_addr = inet_aton($a); 
my $name=gethostbyaddr($ip_addr, AF_INET);
if (defined($name)){print "$name \n";}
else {print "$a\n";}

спасибо!!