Select Code to Download

for (@items) {
      return 0 unless $self->($_);
}

sub filter (&@){
    my $sub = shift;
...
}
print +( filter {/foo/} qw/foobar foobar bazfoo/ )
    ? 'y' : 'n' , "\n";