sub new {                               # constructor!
    my $class = shift;
    $class = ref($class) || $class;

    # Initialize HTML::Element part
    my $self = $class->element_class->new('html');

    {

        # A hack for certain strange versions of Parser:
        my $other_self = HTML::Parser->new();
        %$self = ( %$self, %$other_self );    # copy fields
           # Yes, multiple inheritance is messy.  Kids, don't try this at home.
        bless $other_self, "HTML::TreeBuilder::_hideyhole";

        # whack it out of the HTML::Parser class, to avoid the destructor
    }

#!/usr/bin/perl
use lib "/testscript/modules";
use TemplateTreeBuilder;

my $rootelement = TemplateTreeBuilder->new();

#Ich dachte durch diese Zeile würde es gehen. Aber Pustekuchen: Aber: Es gibt keine Fehlermeldung ?!?
$rootelement->case_sensitive(1);

#nicht standart html Tags werden mit in den Baum aufgenommen.
$rootelement->ignore_unknown(0);

#& in source stays as it is: no decode to &
$rootelement->no_expand_entities(1);

$rootelement->parse_file($ARGV[0]);

#!/usr/bin/perl
package TemplateTreeBuilder;
use lib "/testproject/modules";
use MyElement;
use HTML::TreeBuilder;
#inherit from TreeBuilder
@ISA = qw(HTML::TreeBuilder);
#use parent qw/HTML::TreeBuilder/;

#constructor
sub new {
  my $class = shift;
  $class = ref($class) || $class;
  #invoke base constructor
  my $self = $class->SUPER::new(@_);
  $self->{_element_class}='MyElement';
  bless($self, $class);
  
  
  return $self;
}

return 1;

#!/usr/bin/perl
package MyElement;
use HTML::Element;
#inherit from Element
@ISA = qw(HTML::Element);

*HTML::Element::_fold_case = \&HTML::Element::_fold_case_NOT; #overwrite the var from base class

#constructor
sub new {
  my $class = shift;
  $class = ref($class) || $class;
  #invoke base constructor
  my $self = $class->SUPER::new(@_);
  
  bless($self, $class);
  
  return $self;
}

return 1;