reclimit/ans2/ans.pl

60     my ($qname, $qclass, $qtype) = @_;
72 	    my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
86 	    my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
99 	    my $rr = new Net::DNS::RR("$qname 86400 $qclass NS ns1.1.example.org");
103 	    my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
111 	    my $rr = new Net::DNS::RR("$1.example.org 86400 $qclass NS ns1.$next.example.org");
117 		my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
118 		print("\tresponse: $qname $ttl $qclass $qtype $rdata\n");
126 	    my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
134 	    my $rr = new Net::DNS::RR("$1.example.net 86400 $qclass NS ns1.$s.example.net");
136 	    $rr = new Net::DNS::RR("ns1.$s.example.net 86400 $qclass A 10.53.0.7");
156 	my $qclass = $question->qclass;
159 	($rcode, $ans, $auth, $add, $wait) = reply_handler($qname, $qclass, $qtype);