Perl: Как глобуть все и только подкаталогии?

Я пытаюсь написать сценарий Perl, который выполняет пробуривание каталогов предварительного заказа. Мне нужно, чтобы все подкаталогии данного каталога, включая скрытые. К сожалению, когда я пытаюсь глотать этот путь:

<$ dir / * $ dir /.*>

... ". *" Вызывает ".". и «...», чтобы быть возвращенным тоже, и это портит мою функцию, потому что она вызывает бесконечную петлю. Как получить только [11883330] в подпапках $ DIR, как обычные, так и скрытые, и не каталог тока или верхнего уровня?

, например, если моя папка «Dir» И он содержит эти подкаталоги:

Здравствуйте
.hiddendir
«Дир с пространством по имени»
". Хидиный дир с пространством по имени"
DIR2

... Я хочу получить массив только с этим, а не «». или же "..".

Мне все равно, если файлы также отображаются, потому что я использую «если (-D $ dir)» позже. Есть ли способ, которым я могу проверить, был ли элемент Globbow Array равен текучему каталогу или родительскому каталогу, чтобы я мог исключить их?

Спасибо