#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $top = MainWindow->new();


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

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

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

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

MainLoop();