You need to pack frames as well.

$frame1 = $mw->Frame->pack();
$frame2 = $mw->Frame(-borderwidth => 2, -relief => 'groove')->pack();
[download]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."