my $toplevel = $config{MainWindow}->Toplevel();
share($toplevel);

my $th_inc = threads->new( \&kind );

sub kind {
    $toplevel->configure(
        -text => "Hier ist der Titel"
    );
    return 0;
}

MainLoop();