use strict;
use Tk;
my $MW= MainWindow->new;
$MW -> configure(-bg => 'white');

# Frames-Zeilen
my $F1 = $MW->Frame(-width => 600,-height => 200)->pack(-side => 'top',-anchor => "nw");
my $F2 = $MW->Frame(-width => 600,-height => 100)->pack(-side => 'top',-anchor => "nw");
my $F3 = $MW->Frame(-width => 600,-height => 30)->pack(-side => 'top',-anchor => "nw");

# Zellen in den Zeilen
my $FA = $F1->Frame(-width => 200,-height => 200,-bg => 'yellow')->pack(-side => 'left',-anchor => "nw");
my $FB = $F1->Frame(-width => 400,-height => 200)->pack(-side => 'left',-anchor => "nw");
my $FC = $F2->Frame(-width => 200,-height => 100)->pack(-side => 'left',-anchor => "nw");
my $FD = $F2->Frame(-width => 400,-height => 100, -bg => 'yellow')->pack(-side => 'left',-anchor => "nw");
my $FE = $F3->Frame(-width => 600,-height => 30)->pack(-side => 'left',-anchor => "nw");

#Label
#my $lbl_1 = $FD->Label (-text=>"Projectname:\n\nProjectpath:\n\nconfig files exist:")->pack();

MainLoop;