Help for this page
my ($response,$array_of_responses) = whoisip_query($ip); foreach (sort keys(%{$response}) ){ print "$_: $response->{$_}\n"; }
foreach (sort keys(%{$response}) ){ if($_ =~ m/Email/g){ ... $contact=$response->{$_}; } }