for my $directory ( @directory )
{
	my $dw = new File::DirWalk;
	$dw->onDirLeave(
		sub{
			my $dir = shift;
			if ( $dw->{'depth_count'} == $depth )
			{
				push @folder, $dir;
			}
			return File::DirWalk::SUCCESS;
		}
	);
	$dw->setDepth( $depth + 1 );
	$dw->walk( $directory );
}