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