#!/usr/bin/perl -w
use Tk;
use strict;

my ($mw, $test_string, $txt);
$mw = MainWindow->new(-title => "UTF-8 Test", -width=>400, -height=>300);
$test_string = 'This is a sample Chinese character: 我';
$txt = $mw->Text(-height=>5)->pack;
$txt->insert('end', $test_string);
MainLoop;

##</code><code>##

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

##</code><code>##

use utf8;