1#!/usr/bin/perl
2#
3# $Id: host.pl 715 2009-03-04 07:59:46Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use DNSCheck;
10
11######################################################################
12
13my $check = new DNSCheck({ interactive => 1, extras => { debug => 1 } });
14
15$check->host->test("forastero.schlyter.se");
16$check->host->test("t.schlyter.se");
17$check->host->test("ns.schlyter.se");
18$check->host->test("ns.kirei.se");
19$check->host->test("ns1.kirei.se");
20$check->host->test("ns_1.kirei.se");
21$check->host->test("ns1-.kirei.se");
22$check->host->test("1a.KIREI.se");
23$check->host->test("ns4..kirei.se");
24$check->host->test("ms.365-24.se");
25