sub new {
    my $class = shift;
    my $self  = {};
    my $self->{FehlerHandler} = $self; # <--
    bless($self,$class);
    return $self;
}