sub control{
   my $self = shift;
   # wir könnten jetzt über $self->{PARAMS}
   # auf die Parameter zugreifen
   # die Abstraktion sieht jedoch den Aufruf einer weiteren Methode vor:
   $self->param();
}