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