my $fA = $mw->Frame(
                -background => 'purple',
                    )->pack(
                        -side => 'bottom',
                        -fill => 'x',
                            );


##</code><code>##

my $fA = $mw->Frame(
                -background => 'purple',
                    )->pack(
                        -side => 'bottom',
                        #-fill => 'x',
                            );