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