system ( "yourprog.tcl");

##</code><code>##

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