1#!/usr/bin/perl
2#
3# $Id: address.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
15my @addresses = (
16    "195.47.254.10",        "195.47.254.256",
17    "195.47.254.4",         "10.0.0.1",
18    "224.1.2.3",            "::1",
19    "fe80::1",              "::ffff:10.0.0.1",
20    "2001:0db8::dead:beef", "2001:670:87:11::182",
21    "212.247.7.228",
22);
23
24foreach my $a (@addresses) {
25    $check->address->test($a);
26}
27