use strict;
use warnings;

my $count_num=0;
use Gtk2 -init;
my $builder = Gtk2::Builder->new();
my $integer = $builder->add_from_file("gtk_test.glade");
my $dialog_obj = $builder->get_object("dialog1");
my $OK_obj = $builder->get_object("OK");
my $label1_obj = $builder->get_object("label1");
$dialog_obj->signal_connect(destroy => sub { Gtk2->main_quit() });
my $timeout = Glib::Timeout->add(1000,\&count);
$dialog_obj->show_all();
Gtk2->main;



sub count {
    $count_num +
    sleep 200;
    $label1_obj->set_label($count_num);
    1;
}