#!/usr/bin/perl
#

use strict;
use warnings;
use Net::DNS 1.19;
use Net::DNS::Resolver::Unbound 1.29 -register;

my $resolver = Net::DNS::Resolver->new(
	debug_level => 2,
	prefer_v4   => 1,
	nameserver  => '1.1.1.1@853#cloudflare-dns.com',
	nameserver  => '8.8.8.8@853#dns.google',
	add_ta_file => '/var/lib/unbound/root.key',
	option	    => ['tls-cert-bundle' => '/etc/ssl/cert.pem'],
	set_tls	    => 1
	);

$resolver->print;

my @request = qw(example.net IN NS);

my $reply = $resolver->send(@request);

$reply->print unless $resolver->debug;

exit;