#!/usr/bin/perl -w

use Tk;
use strict;

my ($main);

$main = MainWindow->new();
$main->{upper} = $main->Frame(-bg=>"green");
$main->{upper}->pack(-side=>"top", -fill=>"both");
$main->{lower} = $main->Frame(-bg=>"blue");
$main->{lower}->pack(-side=>"bottom", -fill=>"both");
$main->{ul} = $main->Button(-text=>"ul", -bg=>"red");
$main->{ul}->pack(-in=>$main->{upper}, -side=>"left", -padx=>5, -pady=>5, -fill=>"both");
$main->{ur} = $main->Button(-text=>"ur", -bg=>"red");
$main->{ur}->pack(-in=>$main->{upper}, -side=>"right", -padx=>5, -pady=>5, -fill=>"both");
$main->{ll} = $main->Button(-text=>"ll", -bg=>"red");
$main->{ll}->pack(-in=>$main->{lower}, -side=>"left", -padx=>5, -pady=>5, -fill=>"both");
$main->{lr} = $main->Button(-text=>"lr", -bg=>"red");
$main->{lr}->pack(-in=>$main->{lower}, -side=>"right", -padx=>5, -pady=>5, -fill=>"both");

MainLoop();