use ...
my $rawglade = q{<?xml version="1.0" standalone="no"?>
... };
my $gladexml = Gtk2::GladeXML->new_from_buffer( $rawglade );
$gladexml->signal_autoconnect_from_package('main');
sub btnNUM_clicked {
    print "yay clicked @_ \n";
}
__END__
yay clicked 
yay clicked