#!/usr/bin/perl -w
use strict;
use Net::Whois::ARIN;
use Data::Dumper;
my $w = Net::Whois::ARIN->new(
            host    => 'whois.arin.net',
            port    => 43,
            timeout => 30,
        );
if (!defined($ARGV[0])){
    print "Usage: $0 [arin query]\n";
    exit;
}
my @out = $w->query($ARGV[0]);
foreach(@out){
    print "$_\n";
}