#!/usr/bin/perl -w

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

my $ip = "127.0.0.1";
my $tt = 0;
my @tyy;


my $response = whoisip_query($ip); 
foreach (sort keys(%{$response}) ) { 
	print "$_ $response->{$_} \n"; 
	$tyy[$tt] = "$_ $response->{$_} \n"; 
	$tt++;
}