#!/usr/bin/perl

use utf8 ;
use Tk;

$top = new MainWindow();
my $entry=$top->Entry(
	-text => "こんいちは"
)->pack;

MainLoop;