Hello, Nagai-san!

You are right, adding

$KCODE = 'u'

before requiring Tk also fixes the problem. Thank you very much!