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

my($programa, $ventana_principal, $boton_cerrar);

$programa = Gtk2::GladeXML->new('prueba.glade');

$ventana_principal = $programa->get_widget('ventana_principal');
$boton_cerrar = $programa->get_widget('boton_cerrar');

$boton_cerrar->signal_connect(clicked => \&salir);

Gtk2->main;

sub salir {Gtk2->main_quit;}