$res = new Net::DNS::Resolver;