1#!/usr/bin/perl 2# 3# $Id: dns.pl 749 2009-03-20 09:22:13Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use Data::Dumper; 10 11use DNSCheck; 12 13###################################################################### 14 15my $check = new DNSCheck; 16my $dns = $check->dns; 17 18my $zone = "schlyter.se"; 19my $domain = "ns.schlyter.se"; 20 21my $parent = $dns->query_parent($zone, $domain, "IN", "A"); 22my $child = $dns->query_child($zone, $domain, "IN", "A"); 23 24$check->logger->dump(); 25 26print "********** PARENT **********\n"; 27print Dumper($parent->authority); 28 29print "********** CHILD **********\n"; 30print Dumper($child->answer); 31