sub OnInit {
  my $fenster = Wx::Frame->new( undef, -1, 'Titel');
  $timer->Stop if ($timer);
  $timer = Wx::Timer->new( $fenster,1 );
  $timer->Start( 15000 );
  EVT_TIMER( $timer, 1, \&connect_me );
  ...
}