my $frame = $mw->Frame()->pack(...);
my $label1 = $frame->Label(....)->pack(-side => 'left');
my $entry1 = $frame->Entry(...)->pack(-side => 'right', -fill => 'x', -expand => 1);