sub gewicht {
	my ($self, $event) = @_;

my $timer = AnyEvent->condvar;

my $t = AnyEvent->timer( interval => 1, cb => sub {
      
      my @wert = wiegen(1);
      $self->{kg}->SetLabel($wert[2]);
      
});
            
      $timer->recv;
}