TCL 寄信 中文標題 亂碼

Reference:
用Tcl发送MIME邮件
Encode value as base64
Email主旨亂碼 =?Big5?(Q|B)?xxxxxxxxxx ?=

Redhat / CentOS 6 以上的 tcl rpm 才有 base64。(需要 tcllib.xxx.rpm)

#!/usr/bin/tclsh

package require base64

set strTitle "中文"
set strTitle [base64::encode $strTitle]
set strTitle "=?big5?B?$strTitle?="
puts $strTitle