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