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

         my $ip = "192.168.1.1";

		 my ($response,$array_of_responses) = whoisip_query($ip);
		print '$response is: ', Dumper( $response );
		print '$array_of_responses is: ', Dumper( $array_of_responses);

##</code><code>##

$response is: $VAR1 = {
          'OrgTechName' => 'Internet Corporation for Assigned Names and Number ',
          'NameServer' => 'BLACKHOLE-2.IANA.ORG',
          'Country' => 'US',
          'PostalCode' => '90292-6695',
          'OrgTechEmail' => 'res-ip@iana.org',
          'RegDate' => '1994-03-15',
          'NetHandle' => 'NET-192-168-0-0-1',
          'NetName' => 'IANA-CBLK1',
          'OrgTechPhone' => '+1-310-823-9358',
          'City' => 'Marina del Rey',
          'OrgName' => 'Internet Assigned Numbers Authority ',
          'Comment' => ' ',
          'Address' => '4676 Admiralty Way, Suite 330',
          'OrgTechHandle' => 'IANA-ARIN',
          'NetType' => 'IANA Special Use',
          'CIDR' => '192.168.0.0/16 ',
          'StateProv' => 'CA',
          'Updated' => '2002-09-16',
          'OrgID' => 'IANA',
          'NetRange' => '192.168.0.0 - 192.168.255.255 ',
          'Parent' => 'NET-192-0-0-0-0'
        };
$array_of_responses is: $VAR1 = undef;

##</code><code>##

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

##</code><code>##

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