my $timer = Wx::Timer->new( $self, -1 ); Wx::Event::EVT_TIMER($self, -1, sub { shift->gewicht } ); $timer->Start( 1 * 1000, 0 );