#!/usr/bin/perl
use Net::Whois::ARIN;

if (!defined($ARGV[0])){
    print "Error: querry not defined\n";
    exit;
}
my $w = Net::Whois::ARIN->new(
            host    => 'whois.apnic.net',
            port    => 43,
            timeout => 30,
        );
my $result = $w->query( $ARGV[0] );
print $result;