my $l = $top->Label->pack;
$top->Advertise(MeinLabel => $l);
...
# spaeter
$top->Subwidget("MeinLabel")->configure(...)