Получение Perl Tk FileSelect для выбора каталогов

Question

Как мне получить Perl Tk FileSelect для выбора только каталогов ??

Я пытаюсь это:

sub desDirectory{
 $dd = $mw->FileSelect();
 $dirPath = $dd->Show;
 $dd->configure(-verify=>['-d']);
}

без успеха.

Answer 1

Поможет ли вам * 1001?