#!/usr/bin/perl -w
######################################################################
# frame.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

$top = MainWindow->new();

                             # create the two frames
$upperframe = $top->Frame()->pack();
$lowerframe = $top->Frame()->pack();

                             # labels in the upper frame
$upperframe->Label(-text => "Label1")->pack();

                             # labels in the lower frame
$lowerframe->Label(-text => "Label2")->pack(-side => "left");
$lowerframe->Label(-text => "Label3")->pack(-side => "right");

MainLoop;