je develop une interface en perl/tk et je veux imprimer le contenu d une frame cette frame contient le dirtree