#!/usr/bin/perl --
use strict;
use warnings;
# use Gtk2;
use Gtk2 -init; 

my $window = Gtk2::Window->new ('toplevel');
my $button = Gtk2::Button->new ('Quit');
$button->signal_connect (clicked => sub { Gtk2::main_quit });
$window->add ($button);
$window->show_all;
my $data = 'data';
# my $id = Gtk2->timeout_add(1000, \&handler, $data);
my $id = Glib::Timeout->add(1000, \&handler, $data);
Gtk2->main;

sub handler {
    my ($data) = @_;
    print "timed out ... @_\n";
    # return 1 if you want the handler to be called again later
    # return 0 to stop the handler from being called again
    return 1;
}
__END__