$parent->Widget(
    -background => ...,
    -foreground => ...,
    ... other option/value pairs ...
    -padX => ...,
    -padY => ...,
)

##</code><code>##

$parent->Widget()

##</code><code>##

-optionA => valueA, -optionb => valueB, -optionC => valueC

##</code><code>##

qw{-optionA valueA -optionb valueB -optionC valueC}

##</code><code>##

qw{-option1 value 1 ... -optionN valueN -command}, sub { ... }

##</code><code>##

...
sub _std_btn_pack_opts () {
    return (-side => left, -padx => 5, -pady 2);
}
...
$parent->Button(...)->pack(_std_btn_pack_opts);
...

##</code><code>##

$parent->Button(...)->pack(_std_btn_pack_opts, -anchor => 'n', -side => 'right');

##</code><code>##

my $frame = $parent->Frame()->pack(); # NEEDED

$frame->Label(-text => 'Status Control')->pack(); # NOT NEEDED
my $status1 = $frame->Label(-text => $statmsg1)->pack(); # NEEDED
$frame->Label(-textvariable => \$statmsg2)->pack(); # NOT NEEDED

$frame->Button(
    -text => 'Update Status 1',
    -command => sub {
        $status1->configure(-text => $new_statmsg1);
    },
)->pack(); # NOT NEEDED