Select Code to Download

         use Net::Whois::IP qw(whoisip_query);
         use Data::Dumper;
...
         my ($response,$array_of_responses) = whoisip_query($ip);
        print '$response is: ', Dumper( $response );
        print '$array_of_responses is: ', Dumper( $array_of_responses)
+;

$response is: $VAR1 = {
          'OrgTechName' => 'Internet Corporation for Assigned Names an
+d Number ',
...
          'Parent' => 'NET-192-0-0-0-0'
        };
$array_of_responses is: $VAR1 = undef;

print "Tech contact's email is $response->{OrgTechEmail}\n";

print "Tech contact's email is $response->{TechEmail}\n";