$text = $mw->Scrolled("Text")->pack();
open( FILE, "MyText" ) or die "Arghh...$!\n";
while( <FILE> )
{
  $text->insert('end', $_ );
}

close FILE;