perl -MTk -e 'tkinit->Label(-text => "\x{534d}")->pack;MainLoop'