use Tk;
use utf8;

$Text = "Übungstext zum üben mit überflüssigem Text.";

$mw = MainWindow->new();
$Test_txt = $mw->Text(-height=>'35', -width=>'90')->pack();
$Test_txt->insert('end', $Text);
MainLoop;