I wrote some code earlier this year using the Net::Whois::ARIN module. It would verify the organizatin that had registered an IP4v address against the ARIN database. It worked just find.

This morning tried it again, and no go. This error was returned:

can't connect to whois.arin.net[43]: IO::Socket::INET: connect: timeout at simparin.pl line 14.

Here is the code:

#!/usr/bin/perl -w
use strict;
use Net::Whois::ARIN;
use Data::Dumper;
my $who = 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 = $who->query($ARGV[0]);
foreach(@out){
    print "$_\n";
}
[download]

What's up? Has support for this been disabled?