Select Code to Download

given(Gtk::FileDialog->new()) {
    .ok_button.label("Load");
...
    .connect_signal(destroy => sub { ... });
    # ...
}

sub for_obj(
    local $_ = shift;
    shift->();
    $_;
}

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

sub for_obj { $_[1]->() for $_[0]; $_[0] }