Try this page, it talks about Tk::DirList or Tk::DirTree. That mega-widget is based on Tk::HList and whilst it will require some extra work on your part it can be made to work.
If you are working on Windows then you will need to look at Tk::DirSelect as the others don't seem to be in ACtiveStates ppm repository.