Select Code to Download

my $selector = sub { $_[0] eq $whatever };

my $selector = sub {
                     my($obj)=@_;
...
                        return $obj eq $whatever;
                     }               
                   };