#!/usr/bin/perl

use strict;
use warnings;
use Gtk2 '-init';

my $cnt=0;
Glib::Timeout->add (1000, \&gibmir);

my $window= Gtk2::Window->new();

my $vbox=Gtk2::VBox->new(0,0);
$window->add($vbox);

my $quit = Gtk2::Button->new("Kill me softly");
$quit->signal_connect (clicked => sub { &stop; } );
$vbox->pack_start($quit,0,0,0);

my $count = Gtk2::Label->new(' COUNT: 0 ');
$vbox->pack_start($count,0,0,0);

$window->show_all;
Gtk2->main;

sub aktuell
{
 $count->set_text(" COUNT: $cnt ");
}

sub gibmir
{
 $cnt++;
 &aktuell;
 return 1;
}

sub stop
{
 Gtk2->main_quit;
 exit(0);
}