1#!/usr/bin/perl
2#
3# $Id: asn.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 = DNSCheck->new;
14
15die "usage: $0 ip_address\n" unless ($ARGV[0]);
16
17print "$_\n" for @{ $check->asn->lookup($ARGV[0]) };
18