#!/usr/bin/perl
use Net::Nslookup;
my ($name, $ipAddr);
foreach (@ARGV) {
   $name = nslookup(host => $_, type => "PTR");
   if($name != "") {
      print("looking up ... $name ...");
      $ipAddr = nslookup(host => $_, type => "A");
   } else {
      print("NOT looking up ... $name ...");
   }    
   print "$_ $name $ipAddr\n";
}