in reply to Net::DNS::Resolver problem with subroutine.

my ($ip) = @_;

should be

my ($ip) = $_[0];

or

my $ip = shift;

disregard. <also feels stupid>

Roses are red, violets are blue. All my base, are belong to you.

In Section Seekers of Perl Wisdom