1#!/usr/bin/perl
2#
3# $Id: zone.pl 715 2009-03-04 07:59:46Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use DNSCheck;
10
11######################################################################
12
13my $r = DNSCheck->new({ interactive => 1, extras => { debug => 2 } })->resolver;
14
15my ($name, $type, $class) = @ARGV;
16
17$class ||= 'IN';
18$type  ||= 'A';
19
20die "usage: $0 name [type [class]]\n" unless $name;
21
22my $p = $r->recurse($name, $type, $class);
23
24if ($p) {
25    $p->print;
26} else {
27    print "No answer.\n";
28}
29