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