Select Code to Download

sub done {
    my $self = shift;

    return !($self->foo or $self->bar);
}

$decison = $Decide{$cndx1$cndx2$cndx3};