use Net::DNS;
   $res = new Net::DNS::Resolver;
   $query = $res->search("foo.bar.com");
   if ($query) {
       foreach $rr ($query->answer) {
           next unless $rr->type eq "A";
           print $rr->address, "\n";
       }
   }
   else {
       print "query failed: ", $res->errorstring, "\n";
   }