1#!/usr/bin/perl
2
3use Data::Dumper;
4use Net::DNS;
5
6my $resolver = new Net::DNS::Resolver;
7$resolver->nameserver("62.119.93.254");
8$resolver->debug(1);
9
10my $optrr = new Net::DNS::RR {
11    name          => "",
12    type          => "OPT",
13    class         => 1024,
14    extendedrcode => 0x00,
15    ednsflags     => 0x0000,
16    optioncode    => 0x03,     # NSID, RFC 5001
17    optiondata    => 0x00,
18};
19
20my $query = Net::DNS::Packet->new("kirei.se", "NS", "IN");
21$query->push(additional => $optrr);
22$query->header->rd(0);
23
24print Dumper($query);
25
26my $response = $resolver->send($query);
27
28print Dumper($response);
29