package My::TreeBuilder;
use base qw(HTML::TreeBuilder);
sub element_class { return "My::Element" };
package My::Element;
use base qw(HTML::Element);
sub my_additional_method { ... }