You are $ip in the string directly after my($ip), so you are using an undefined variable in the print statement. How about something like this

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

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

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

sub whois{
 my $ip = $_[0];

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

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

 return ($email, $techname);
}
[download]