https://rvasus.blogspot.com/2020/09/tcl-tk-shell-scripting-part-1q-a.html