my $header = $mw->Pane->pack( -side => 'top' );
my $rest = $mw->Scrolled ... ->pack;