my $top_frame = $top->Frame(-background => 'red')
    ->pack(-side => 'top', -expand => 1, -fill => 'x', -anchor => 'n');
    
    my $bottom_frame = $top->Frame(-background => 'lightblue')
    ->pack(-side => 'top', -expand => 1, -fill => 'both');