in reply to Tk::Dirselect problem
You can try using Tk::FileSelect. Re: using Tk::FileSelect provides some details on how to configure the widget to look for files or directories.
While you may not like the style since it's "unix'ish", Tk::DirTree allows you to just select directories. It shows the directory structures as a tree (folders/subfolders). Doesn't show files either.