my $text='Hallo';
$main->Label(-textvariable=>\$text,-width=>20)->pack;

$main->after(1500=>sub {$text="Hallo Welt"});