Hi,

you are writing, you need a widget which allows you to select files and directories. However, your example based on Tk::DirTree will handle directories only. If that's good enough, check out the following:

perl -MTk -e"print tkinit->chooseDirectory"

Cheers Christoph