#!/usr/bin/perl -w

use Net::Whois;
use Net::Whois::Arin;
use Carp;

my $ip = shift;
my ($domain, $isp);

my $w = Net::Whois::ARIN->new(
                host => 'whois.arin.net',
                port => 43,
                timeout => 30 );

my @output = $w->network($ip);

foreach my $r (@output){
        if($r->NameServer){
                $isp = sprintf("%s", $r->NameServer);
                my $w = new Net::Whois::Domain $isp
                        or die "Cannot Connect to WHOIS server!\n";
                unless( $w->ok ) { croak "No match for $company\n"; }

                print "Domain: ", $w->domain, "\n";
                } else { next; }
        }

exit;