print Dumper $tree;
        $tree->DESTROY(); #clear circular references
        print Dumper $tree; <STDIN>;

##</code><code>##

use Tree::Simple 'use_weak_refs';