Select Code to Download

    my ($border,$width,$height) =
    $self->{border},
      $self->$w(),
    $self->$b();

    my($border,$width,$height) =
        ($self->{border}, $w->($self), $b->($self));