Perl/tkの質問はここで良かったでしょうか？

フォルダ選択用のウィジェットって無いでしょうか？
getOpenFile()のフォルダ版のような感じの。

データの保存用フォルダを指定する用の入力とかに使いたいんですが、
getOpenFileだと絶対ファイル名を指定しないといけないので、
空のディレクトリを指定することが出来なくて困っています。
仕方なく手動で入力してますが、フルパスなのでバリめんどいです。
誰かご存じの方がいらっしゃいましたら、よろしくお願いします。