sub zeigeWattzahl {
		my $self = shift;
		my $test = shift;
		print "'" . $self->{name} . "' hat eine Birne mit ";
		print $self->{wattzahl} . " Watt.\n";
		say $test->{hans};
	}