Select Code to Download

my $target = shift or Carp::croak "No target in member/2 ";

sub member {
    my ($target, @list) = @_;
...
        return $NEG;
    }
}