use IO::Socket::INET;
$s = IO::Socket::INET->new (
     PeerAddr =>"1.2.3.4",
     Proto    =>"udp",
) or die "no socket!\n";

print $s->sockhost, " ", 
 scalar(gethostbyaddr($s->sockaddr,$s->sockdomain)),"\n";