$KCODE = "Shift-JIS"
print("KCODE=", $KCODE,"\n")
print("日本語を表示")