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);