Select Code to Download

my $window = call_on_obj(
    Gtk2::Window->new( "toplevel" ),
...
    ) ],
    [ 'show_all' ],
);

my $window = Gtk2::Window->new( "toplevel" );
$window->signal_connect( delete_event => sub { Gtk2->main_quit } );
...
    $button;
} );
$window->show_all();

use List::Util;

...
        $a;
    } @_;
}