1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/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;
|
