{
   my $tree = ...;
   my $sentry = Object::Destroyer->new( $tree, 'delete' );
   ...
}