my $window = Gtk2::Window->new( "toplevel" );
$window->signal_connect( delete_event => sub { Gtk2->main_quit } );
$window->set_title( "Test" );
$window->set_border_width( 15 );
$window->add( do {
	my $button = Gtk2::Button->new( "Quit" );
	$button->signal_connect( clicked => sub { Gtk2->main_quit } );
	$button;
} );
$window->show_all();