Perl调用DC的问题

求各位大神帮助
现在在用Perl搭建一个平台，中间要调用DC软件并完成相关功能，要DC完成的功能已经在一个.tcl文件中写好了，读入脚本就可以运行。
现在遇到的问题是，想用Perl全自动将改.tcl脚本加载在DC中，而非在terminal或者DC上加入。
已经会用Perl可以调用打开DC，但是不会用Perl让DC将.tcl读入，这个功能应该如何完成?
求助各位了！

有木有人帮帮我

'$SYNOPSYS/amd64/syn/bin/dc_shell -f ./xxx.tcl | tee ./run.log'