perl -MEncode -MTk -e 'my $j = decode("utf-8", "\xe6\x97\xa5\xe6\x9c\xac\xe5\x9b\xbd");
    my $w = new MainWindow::;
    $w->Label(-text => $j,
              -font => "-adobe-helvetica-regular-r-normal-*-12-*-*-*-*-*-*-*"
             )->pack;
    MainLoop()'