my $textbox = $mw->Text( 
    -wrap => 'word',
)->pack( 
    -fill => 'both', 
    -expand => 1,
);

$mw->after(100 => sub { initialize() });
MainLoop;


sub initialize {
    $textbox->insert("1.0", $long_text);
}