Sure there are a lot of ways ...

system ( "yourprog.tcl");
[download]

... or maybe something like this ...

open TCL, "|tcl" or die "cannot start tcl:$!\n";
print TCL <<CODE;
some tcl command
other tcl command
CODE
close TCL
[download]