Select Code to Download

package WalkTree;
use strict;
...
}

1;

my $filefunc = sub { 
    if( $filter ) { 
...
    sub { push @dirs , File->new( name => $_[0] ) },
    $prune
);