A Perl/Tk widget to view recursively a data structure