📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 05:19:03
📂
/ (Root)
/
usr
/
share
/
doc
/
libnet-dns-perl
/
examples
/
demo
📍 /usr/share/doc/libnet-dns-perl/examples/demo
🔄 Refresh
✏️
Editing: trace_dns.pl
Read Only
#!/usr/bin/perl use strict; use warnings; use Net::DNS; use Net::DNS::Resolver::Recurse; my $res = Net::DNS::Resolver::Recurse->new; $res->recursion_callback(sub { my $packet = shift; $_->print for $packet->additional; printf(";; Received %d bytes from %s\n\n", $packet->answersize, $packet->answerfrom); }); $res->query_dorecursion(@ARGV);
💾 Save Changes
❌ Cancel