#!/usr/bin/perl -w

use Tk;
use strict;

my (
    $main,
    $w_upper,
    $w_lower,
    $w_upper_left,
    $w_upper_right,
    $w_lower_left,
    $w_lower_right,
);

$main = MainWindow->new();
$w_upper = $main->Frame(-bg=>"green");
$w_upper->pack(-side=>"top", -fill=>"both");
$w_lower = $main->Frame(-bg=>"blue");
$w_lower->pack(-side=>"bottom", -fill=>"both");
$w_upper_left = $w_upper->Button(-text=>"ul", -bg=>"red");
$w_upper_left->pack(-side=>"left", -padx=>5, -pady=>5, -fill=>"both");
$w_upper_right = $w_upper->Button(-text=>"ur", -bg=>"red");
$w_upper_right->pack(-side=>"right", -padx=>5, -pady=>5, -fill=>"both");
$w_lower_left = $w_lower->Button(-text=>"ll", -bg=>"red");
$w_lower_left->pack(-side=>"left", -padx=>5, -pady=>5, -fill=>"both");
$w_lower_right = $w_lower->Button(-text=>"lr", -bg=>"red");
$w_lower_right->pack(-side=>"right", -padx=>5, -pady=>5, -fill=>"both");

MainLoop();