#!/usr/bin/perl

use strict;
use Tk;
use threads qw(yield);
use threads::shared;

my $win = MainWindow->new();

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

sub kind {
    sleep(3);
    eltern("hallo Mama");
    return;
}

sub eltern {
    $win->configure(-title=>"$_[0]");
}

MainLoop;