Check out Object::Destroyer as an alternative to writing your own wrapper for the tree.

use HTML::TreeBuilder qw( );
use Object::Destroyer qw( );

my $tree = HTML::TreeBuilder->new();
$tree = Object::Destroyer->new($tree, 'delete');
[download]