sub call {
   my ($self, $method) = @_;
   $self->$method;
}


$self->call('ziel');
$self->call('ziel2');