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