Select Code to Download

my $window = for_obj(Gtk::Window->new("toplevel"), sub {
    $_->signal_connect(delete => sub { Gtk->exit(0) });
...
    });
    $_->show;
});

my $window = do {
    local $_ = Gtk::Window->new('toplevel');
...

    $_;
};