#!/usr/bin/perl -w
use strict;
use warnings;
use Tk;


my $mw  = MainWindow->new;
my @frames;

$frames[$_] = $mw->Frame( -borderwidth => 2, -relief => 'groove' ) for (0..4);

$frames[0]->grid( -column => 0, -row => 0, -columnspan => 2, -sticky => 'nsew' );
$frames[1]->grid( -column => 0, -row => 1, -rowspan    => 2, -sticky => 'ns' );
$frames[2]->grid( -column => 1, -row => 1 );
$frames[3]->grid( -column => 1, -row => 2 );

$_->Label( -text => 'Frame' )->pack() for( @frames );

MainLoop();