use Tk;
$mw=tkinit;
$mw->packPropagate(0);
$fouter = $mw->Frame(-borderwidth => 10, -bg => "green")->pack(-fill => "both", -expand => 1);
$f=$fouter->Frame(-bg => "red")->pack(-fill => "both", -expand => 1);
$f->Label(-text => "hallo", -bg => "red")->place(-relx => 0.5, -rely => 0.5, -anchor => "c");
MainLoop;