sub findDir{
	
	my ($dir, $min, $max) = @_;
	$min_depth = \$min;
	$max_depth = \$max;
	#print "findDir: $dir min: $min_depth max: $max_depth\n";
	$count_files = *count{0};
	
	find( {
		preprocess => \&preprocess,
		wanted => \&wanted,
	}, $dir);
	
	#print "count: $count_files\n";
	
	sub preprocess {
		my $depth = $File::Find::dir =~ tr[/][];
		#print "depth: $depth\n";
		return @_ if $depth < $$max_depth;
		print "depth: $depth max: $$max_depth\n";
		if ($depth == $$max_depth){
			print "greping\n";
			return grep { -df } @_;
		}
		return;
	}
	
	sub wanted {
	   
		my $depth = $File::Find::dir =~ tr[/][];
		return if $depth < $$min_depth;
		
		if(!($_ =~ m/^\./)){
			$$count_files++;
		}
	}
	return $$count_files;
	
}