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