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;

$mw->Label(-text => "Das hier ist unten")->pack(-side => "bottom");
$mw->Label(-text => "Das hist ist oben")->pack(-side => "bottom");