Create t-sh-l.tcl