http://www.perlmonks.org?node_id=284946


in reply to Resolving basic info from IP address

Do you mean infromation about who is authoritative for the address??

If so, Net::Whois::IP will give you that info

#!/usr/bin/perl -w use strict; use Net::Whois::IP qw(whoisip_query); my $ip = "206.157.230.50"; my ($response,$array_of_responses) = whoisip_query($ip); foreach my $key (keys%$response) { print "$key - ", $response->{$key}, "\n" }