Select Code to Download

sub new {
    my ($class) = @_;
...
sub balance { splice(@_, 1, 0, 'BALANCE'); goto \&_access; }

...