Select Code to Download

for (HBox->new) {
  $_->config1($param1);
  $_->config2($param2);
...
  $_->add($sb);
  $window->add($_);
}

$window->add(do {
  my $hbox = HBox->new;
  for ($hbox) {
...
    });
  $hbox;
});