#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new;
my $top_frame = $mw->Frame()->pack(-side => "top");
my $bot_frame = $mw->Frame()->pack(-side => "top");

$top_frame->Button(-text => "A",)->pack(-side => "left");
$top_frame->Button(-text => "B",)->pack(-side => "left");
$bot_frame->Button(-text => "C",)->pack(-side => "left");
$bot_frame->Button(-text => "D",)->pack(-side => "left");

MainLoop;