#!/usr/bin/perl
use strict;
use warnings;
use Net::Whois::IP qw(whoisip_query);

foreach my $ip qw(129.1.1.1 149.1.1.1) {
  my ($email, $techname) = whois($ip);
  print "$ip\'s name is $techname and email address is $email\n";
}

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

  my $email = $response->{TechEmail} || $response->{OrgTechEmail};
  my $techname = $response->{TechName} || $response->{OrgTechName};

  return ($email, $techname);
}