#!/usr/bin/perl
use strict;
use warnings;

use Net::Whois::ARIN;

my $file = "file_containing_IPs.txt";

open my $inFile, '<', $file or die "Unable to open $file: $!\n";

my $w = Net::Whois::ARIN->new (
    host    => 'whois.arin.net',
    port    => 43,
    timeout => 30,
) or die "Can't access server: $!\n";

while (defined (my $line = <$inFile>)) {
    chomp $line;
    next if !length $line;

    for my $net ($w->network ($line)) {
        printf "CIDR: %s\tNetName: %s\tNetHandle: %s\n",
            $net->CIDR, $net->NetName, $net->NetHandle;
    }
}

close $inFile;