Select Code to Download

#!/usr/bin/perl -w
use Tk;
...
$txt = $mw->Text(-height=>5)->pack;
$txt->insert('end', $test_string);
MainLoop;

$test_string = 'This is a sample Chinese character: ' . chr(25105);

use utf8;