tcl/tk exec 結果儲存至變數

 catch { exec /usr/bin/find /root/tcla >/dev/null } msg