Select Code to Download

sub new
{
...
  my ($self,$ip) = @_;
  $self->{_IP} = new Net::IP($ip) or die (Net::IP::Error());
}

if(grep($_ == $ref, @{$self->{_ancestors}}));