Select Code to Download

...
use 5.026;
...
        }
    }
}

$callback, undef, undef, BINDPLUS_REF_BASE . $tcl_sub_ref_id++

        sub { ... }
        \&subname
...
        [\&subname, @args]
        [$coderef]
        [$coderef, @args]