Create bckup.tcl