my $res = Net::DNS::Resolver->new(
    nameservers => [qw(nnnnn.com xxxxx.com)],
    recurse     => 1,
    debug       => 1,
);