Help for this page

Select Code to Download

Select or download this

    my ($response,$array_of_responses) = whoisip_query($ip);

    foreach (sort keys(%{$response}) ){
        print "$_: $response->{$_}\n";
    }

Select or download this

   foreach (sort keys(%{$response}) ){
     if($_ =~ m/Email/g){
...
       $contact=$response->{$_};
     }
   }