use strict;
use Tk;

my $mw = MainWindow->new();
my $t = $mw->Scrolled('Text',-scrollbars=>'e',-wrap=>"word")->pack;

$t->insert("end"," this is a test\n" x 4000);

MainLoop;