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