1#!/usr/local/bin/perl -w 2 3# Example usage for Net::DNS::Resolver::Recurse 4# Performs recursion for a query. 5 6use Net::DNS::Resolver::Recurse; 7my $res = Net::DNS::Resolver::Recurse->new; 8$res->debug(1); 9$res->hints("198.41.0.4"); # A.ROOT-SERVER.NET. 10my $packet = $res->query_dorecursion("www.rob.com.au.", "A"); 11$packet && $packet->print; 12