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

my $toplevel = Gtk2::Window->new ('toplevel');
$toplevel->show_all;

Glib->install_exception_handler (sub {
                                   print "exception handler\n";
                                 });
Gtk2->key_snooper_install (sub { print "snooper\n";
                                 die "snooper error\n";
                               });

Gtk2->main;
print "exit 0\n";
exit 0;