use Tk;

my $mw = Tk::MainWindow->new;
my $fr = $mw->Frame(-label=>"myframe");
my $l1 = $fr->Label(-text=>"label1");
my $l2 = $fr->Label(-text=>"label2");
$fr->grid;
$l1->grid;
$l2->grid;

MainLoop;