I don't know if this is what you mean, but it's worked for me a few times. This works on SunOS very well (the foratting may be different based on the OS -- im not much of a networking guy :) )

#!/usr/bin/perl -w

$ipaddressfile = "FILENAME-TO-PLAINTEXT-IPADDRESS-FILE";

@iplist = "";
$i = 0;

open(IPLISTFILE,"<$ipaddressfile");
while(<IPLISTFILE>) {
     $iplist[$i] = $_;
     $i++;
}
close(IPLISTFILE)l

foreach $ipaddr (@iplist) {
     @ns = `nslookup $ipaddr`;
     $ns[3] =~ m%.* (.*)%;
     print $ipaddr . " resolves to " . $1 . "\n";
}
[download]