ChatGPT - Tcl/Tk Service Control Script