Select Code to Download

my $btn = Gtk::Button->new("Quit");
$btn->signal_connect(clicked => sub { Gtk->exit(0); return });
$btn->show;
...
$window->border_width(15);
$window->add($btn);
$window->show;

my $window = configure_object(
    Gtk::Window->new("toplevel"),
    signal_connect => [ delete => sub { Gtk->exit(0); return } ],
...
    )],
    show => undef,
);

$fileselect->cancel_button->signal_connect(
    clicked => sub { $fileselect->hide }
);
# ...

configure_object(
    $fileselect,
    cancel_button => signal_connect => [
...
    ],
    # ...
);

sub configure_object {
    my $object = shift;
    while(@_) {
...
    }
    return $object;
}