my $txt = $mw->Text()->pack(-side => 'top');
#to
my $txt = $mw->Scrolled('Text')->pack(-side => 'top');