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

my ($ip, $email, $techname);
$ip = '149.1.1.1';

( $email, $techname ) = whois($ip);

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

sub whois {
  my $addr = shift;
  my ($response,$trash) = whoisip_query($addr);

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

  return ($email, $techname);
}