my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side => 'bottom', -fill => 'both', -expand => 1);

##</code><code>##

for($t=0;$t<$lthree;$t++)
{