use Tk;

my $mw = MainWindow->new();

$mw->Scrolled('Text')->pack();
$mw->Text()->pack;
MainLoop;