#!/usr/bin/perl

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

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

sub kind {
    eltern("hallo");
    return;
}
sub eltern {
    print "Das Kind sagt: $_[0]";
}

sleep(4); #warten bis kind fertig ist