use Tk;

$mw = MainWindow->new();
$l = $mw->Label(-text => 'Hallo Perl Welt!')->pack();

MainLoop;

$l->configure(-text => 'Hallo Tk Welt!');