use Tkx::Scrolled;
  ...
    $t1 = $f1->new_tkx_Scrolled('text', -scrollbars=>'oe', -wrap=>'word', -height=>'12', -width=>100,);
  ...
  $t1->insert('end', $txt);
  $t1->yview('end');
  ...