#!/usr/local/bin/perl

use Net::Whois::IP qw(whoisip_query);
use strict;
my $ip = "www.yahoo.com";
my $tt = 0;
my @tyy;


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