Select Code to Download

$main::objbase->[155] =
  sub {
...
                      );
    return($i);
  };

$vial = $main::objbase->[155]();