#!/usr/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new;
$mw->title( ' After Robert Irwin: Who’s Afraid of Red Yellow and Blue' );
$mw->configure(-background=>'red');
$mw->minsize(qw(650 150));
$mw->maxsize(qw(650 150));
$mw->geometry('+10+140');

my $top1 = $mw->Toplevel;
$top1->configure(-background=>'yellow');
$top1->minsize(qw(650 150));
$top1->maxsize(qw(650 150));
$top1->geometry('+10+340');
$top1->title( 'yellow' );

my $top2 = $mw->Toplevel;
$top2->configure(-background=>'blue');
$top2->minsize(qw(650 150));
$top2->maxsize(qw(650 150));
$top2->geometry('+10+540');
$top2->title( 'blue' );

MainLoop;