#!/usr/bin/perl -w

use strict;
use warnings;
use Net::Whois::IP qw(whoisip_query);
use Net::Whois;

my @domains = ('192.168.22.12','192.168.22.13');
foreach my $domain(@domains)
{
my ($response) = whoisip_query($domain);
foreach (sort keys(%{$response}) )
{
print "$_ $response->{$_} \n\n";
}
}