use strict;
use Tk;

# Das MainWindow erzeugen
my $mw = MainWindow->new(-background   =>   'lightskyblue1');

$mw -> title('Test für pack');

my $frame = $mw->Frame() -> pack(-side=>"top");

# Wieder mal diverse Felder definieren
my $lbl_1 = $mw -> Label (-text => 'Feld 1',
                          -relief => 'ridge');
my $lbl_2 = $mw -> Label (-text => 'Feld 2',
                          -relief => 'ridge');
my $lbl_3 = $mw -> Label (-text => 'Feld 3',
                          -relief => 'ridge');
my $lbl_4 = $mw -> Label (-text => 'Feld 4',
                          -relief => 'ridge');

$lbl_1->pack (-in => $frame, -side=>'left');
$lbl_2->pack (-in => $frame, -side=>'left');
$lbl_3->pack (-in => $frame, -side=>'left');
$lbl_4->pack (-side=>'left', -fill => 'x', -expand => 1);

MainLoop;