sub set_farbe {
  my $klasse = shift;
  $klasse->{farbe} = shift;
}