Select Code to Download

               -X->+---------+
               -Y->| Node    |
...
                   +---------+
                   | Node    |
                   +---------+

-X->+---------+    +---------+
-Y->| Wrapper |-J->| Node    |
...
                   +---------+
                   | Node    |
                   +---------+

use Object::Destroyer qw( );
$tree = Object::Destroyer->new($tree);