->Eval(<<"__TCL__");

... some Tcl Code

@{[ my_perl_sub() ]}

... more Tcl Code

__TCL__