use Tk;
$top = new MainWindow;
$top->packPropagate(0);
$f_outer = $top->Frame(-borderwidth => 10, -relief => "raised", -bg => "blue")->pack(qw(-fill both -expand 1));
$f_outer->Frame->pack(qw(-fill both -expand 1));
MainLoop;