@nsl = `nslookup $_`;
     $reso = $nsl[3]; 
     if ($? = 0) {
        $getit = (split (/\s+/, $reso))[1];  # pull hostname only
        print “$_ -> $getit\n”;
        } else {
           print “$_ - could not resolve.\n”;
          }

##</code><code>##

***dc1 can’t find server name for address 9.0.1.2: Non-existent domain
1.2.3.4 -> Hostname1
5.6.7.8 -> Hostname2
9.0.1.2 -> Could not resolve.
3.4.5.6 -> Hostname7
***dc1 can’t find server name for address 7.8.9.0: Non-existent domain
7.8.9.0 -> Could not resolve.