use Tk;
use strict;
use warnings;

my $mw = MainWindow->new();

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

my $frame1 = $mw->Frame(-width => 200,
                         -height => 50,
                         -bg => 'black');

my $frame2 = $mw->Frame(-width => 200,
                         -height => 50,
                         -bg => 'red');

my $frame3 = $mw->Frame(-width => 200,
                         -height => 50,
                         -bg => 'gold');

$frame1->pack(-side => 'top');
$frame2->pack(-side => 'top');
$frame3->pack(-side => 'top');

MainLoop;