#!/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;