Help for this page
sub recursion{ findDir($dir, $min, $max); ... sub findDir{ my ($dir, $min_depth, $max_depth) = @_; }
$dir = shift; $max = shift; $min = shift; etc ...