$w->Subwidget('label1')->configure(-text => 'new text');