Select Code to Download

   use Net::DNS;
   $res = new Net::DNS::Resolver;
...
   else {
       print "query failed: ", $res->errorstring, "\n";
   }

   $res->nameservers("192.168.1.1", "192.168.2.2", "192.168.3.3");