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

&whois();

my ($ip, $email, $techname);

print "$ip\'s name is $techname and email address is $email\n";

sub whois{

 $ip = '149.1.1.1';

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

 $email = $response->{TechEmail};
 $techname = $response->{TechName};

return ($email, $techname);