use warnings;
use strict;
use Tk;

my $mw = Mainwindow->new;
my $frame = $mw->Frame->pack(-expand => 1, -fill => 'both');
my $text = $frame->Scrolled('Text',
     -scrollbars => 'se',
)->pack(-expand => 1, -fill => 'both');

MainLoop;