use strict;
use Tk;

my $mw = MainWindow->new();

$mw->geometry("300x250");

my $frame = $mw->Frame()->pack(
    -fill => 'both',
    -expand => 1,
    -side => 'top'
);

my $textframe = $frame->Scrolled(
    'Text',
    -scrollbars => 'e'
)->pack(
    -fill => 'both',
    -expand => 1
);

$frame->Entry()->pack(-fill => 'x');

MainLoop;