#!/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: \x{6211}";
$txt = $mw->Text(-height=>5)->pack;
$txt->insert('end', $test_string);
MainLoop;