use warnings; use strict; use Gtk2 -init; use Gtk2::GladeXML; my $gladexml = Gtk2::GladeXML->new('register_test.glade'); $gladexml->signal_autoconnect_from_package('main'); Gtk2->main; sub btnNUM_clicked { print "yay clicked"; } sub gtk_main_quit { Gtk2->main_quit; }