Das scheint mit Tk::DirTree nicht zu gehen. Schau mal, ob Du nicht was mit Tk::Tree selbst machen kannst...

Oder schau Dir WxPerl an ;-)