message-send.tcl