# Methode der Subklasse
sub init{
   my $self = shift;
   $self->{DBH} = $self->dbh();
}