#!/usr/bin/perl -w

use Net::Whois;
use strict;
use warnings;

my @domains = ('192.168.22.12','192.168.22.13');					
  						
foreach$domain(@domains) 
{
whois($domain);
}