#Frame erstellen
my $entry_frame  = $fenster->Frame();

#Die Widgets sind Ausprägungen des Frame-Objekts!
my $entry_button = $entry_frame->Entry();
my $entry_label  = $entry_frame->Label(
        -text    => "name: ",
        -height  =>       40,
        -width   =>       35,
);

#Mit ein paar pack-optionen kann man die Widgets auch noch positionieren
#und deren Verhalten bestimmen.
$entry_frame ->pack(-side =>  'top', -expand => 1, -fill => 'x');
$entry_label ->pack(-side => 'left');
$entry_button->pack(-side => 'left', -expand => 1, -fill => 'x');

MainLoop();