#!/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";
}

##</code><code>##

nsl.pl 109.163.234.7 136.169.192.25 174.140.166.22 178.137.180.11 188.126.75.245 204.45.103.68

##</code><code>##

NOT looking up ... edwardsnowden0.torservers.net ...109.163.234.7 edwardsnowden0.torservers.net 
NOT looking up ...  ...136.169.192.25  
NOT looking up ...  ...174.140.166.22  
looking up ... 178-137-180-11-broadband.kyivstar.net ...178.137.180.11 178-137-180-11-broadband.kyivstar.net 
NOT looking up ... c-188-126-75-245.anonymous.at.anonine.com ...188.126.75.245 c-188-126-75-245.anonymous.at.anonine.com 
NOT looking up ...  ...204.45.103.68