my $window = map {
	$_->signal_connect(delete => sub { Gtk->exit(0) });
	$_->set_title("Test");
	$_->border_width(15);
	$_->add(map {
		$_->signal_connect(clicked => sub { Gtk->exit(0) });
		$_->show;
		$_
	} Gtk::Button->new("Quit");
	$_->show;
} Gtk::Window->new("toplevel");