#!/usr/bin/perl

use warnings;
use strict;

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

my $main = MainWindow->new();
share($main);

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

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

MainLoop();