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