#!/usr/bin/perl

use warnings;
use strict;
use threads;
use threads::shared;

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

my $var = "perlcommunity";
share($var);

sub kind {
    print "$var\n";
    return 0;
}

sleep(2); # auf das Kind warten

Use of uninitialized value in string at tktest.pl line 15.

my $foo : shared = 1;
my $bar = 1;
 
my $t = threads->new(\&kind);

#!/usr/bin/perl

use Tk;
use threads;
use threads::shared;
 
my %hash = ();

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

$hash{main} = MainWindow->new();

$hash{hm} = "test";

sub kind { 
    return 0;

}

sleep(3);

Invalid value for shared scalar at tktest.pl line 13.