Select Code to Download

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

my $window = Gtk::Window->new("toplevel");
for ($window) {
...
  $_->add($btn);
  $_->show;
}