use Tk;
$mw=tkinit;
$l=$mw->Label(-text => "Hello world!")->pack;
$mw->update; # Groesse des Fensters ist jetzt festgelegt
sleep 2;
$mw->packPropagate(0);
$l->configure(-text => "Hello");
$mw->update;
sleep 2;
$l->configure(-text => "Das ist ein langer Text");
MainLoop;