my $loop = Glib::MainLoop->new; my $count = 1; my $timer = Glib::Timeout->add (1000, \&gibmir, undef, 1 );
sub gibmir{ $count++; &aktuell; return 1; }
my $quit = Gtk2::Button->new("Kill me softly");
   $table->attach_defaults($quit, 0, 2, 9, 10);
   $quit->signal_connect (clicked => sub { &stop; } );

$window->show_all; $table->show; $loop->run;
sub stop { $loop->quit; Gtk2->main_quit; }