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