use Encode;
use Tk;
use Tk::TextUndo;
my $main = MainWindow->new;

my $string = decode ('utf8', "This is a test of the œ character");

my $middle = $main->Frame(-borderwidth=>2,-relief=>'groove')->grid(-row=>0,-column=>1,-sticky=>'nsew');
my $middlebox = $middle->Text (
			   -font => 'system 10',
                           -wrap => 'word',
                           -spacing2 => 10,
                           -spacing3 => 30,
                           -takefocus => 1,
                           -background => 'white',

                           -width => 70,
                           -height => 10,

                           )->grid(-row=>0, -column=>0, -sticky=>'nsew');#pack(-expand => 1, -fill => 'both');#;


$middlebox->insert('end',"$string");

MainLoop;