my $filefunc = sub { 
	if( $filter ) { 
		$_[0] =~ /$filter/o and push @files, File->new( name => $_[0] ) }
	else {
		push @files, File->new( name => $_[0] )
	}
};

WalkTree::walktree(
	$dir,
	$filefunc,
	sub { push @dirs , File->new( name => $_[0] ) },
	$prune
);