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