#!/usr/bin/perl

use warnings;
use strict;

use threads;
use threads::shared;
use Tk;

my %config = ();

$config{MainWindow} = MainWindow->new();

share(%config);


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

sub kind {
    $config{MainWindow}->configure(-title => "Neuer Titel");
    return 0;
}

MainLoop();