#!usr/bin/perl
use strict;
use warnings;
use Net::Whois::ARIN;
my $w = Net::Whois::ARIN->new(
            host    => 'whois.arin.net',
            port    => 43,
            timeout => 30,
        );
my @results = $w->query("NERSC");
foreach $result (@results) {
	print $result."\n";
}
exit;