cannot resolve

log.txt

(emacs@localhost)155> snitch_resolver:do_query("starbucks.com",txt).
snitch_resolver:do_query("starbucks.com",txt).
{dns_rec,{dns_header,49263,true,query,false,true,true,true,
                     false,0},
         [{dns_query,"starbucks.com",txt,in}],
         [],[],[]}

snitch_resolver.erl

-module(snitch_resolver).

-include_lib("kernel/src/inet_dns.hrl").

-define(DNS_SERVERS, [{8,8,8,8},{1,1,1,1},{9,9,9,9}]).

-export([do_query/2]).

build_query(Domain, Type) ->
    inet_dns:encode(
      #dns_rec{
         header = #dns_header{
                     id = rand:uniform(65535),
                     opcode = 'query',
                     rd = 1,
                     aa = 1
                    },
         qdlist = [#dns_query{
                      domain = Domain,
                      type = Type,
                      class = in
                     }]
        }).

get_dns_server() ->
    lists:nth(rand:uniform(erlang:length(?DNS_SERVERS)),?DNS_SERVERS).

do_query(Domain, Type) ->
    Query = build_query(Domain, Type),
    NS = get_dns_server(),
    {ok, Socket} = gen_udp:open(0, [binary, {active, false}, {recbuf, 4 * 65535}]),
    gen_udp:send(Socket, NS, 53, Query),
    {ok, {NS, 53, Reply}} = gen_udp:recv(Socket, 5 * 65535, 5 * 1000),
    {ok, R} = inet_dns:decode(Reply),
    gen_udp:close(Socket),
    R.