Perl (threads) debutant

Bonjour,
je debute avec perl j'essaye d'utilise des threads pour le partage d'une ressource mais a chaque fois que je alnce mon programme il plante. bref si une personne pouvait me donné un exemple de threads qui permet de partager une une ressource entre deux entités ce serait vraiment helpful merci
ci bas une parti de mon code

use threads qw(yield);
}

sub jeton {sleep 1;} #le jeton, si un sub na pas le jeton il ne tourne pas

sub_part1{

sub good_part1{
if (rand(1.)<$y){1;}
else{0;}
}

while ($t<$T){

$thr1 = threads->new(\&jeton, print OUTFILE ()); ); # jeton

if
...

sub_part2 {

sub good_part2{
if (rand(1.)<$m){1;}
else{0;} }

while ($t<$T){
$thr2 = threads->new(\&jeton, print OUTFILE ()); # jeton

}
}

$thr1->join;
$thr2->join;