SoloCodigo

Me autocontesto, les paso un ejemplo de hilos que llamana a hilos y todos comparten y modifacan la misma variable.
Lo hice con semaforos (que esta comentado) y con variables globales.
Saludos!

use threads;
use threads::shared;
#use Thread::Semaphore;
use strict;
use Data::Dumper;

#my $semaphore = new Thread::Semaphore(5);
my $con:shared = 0;

MAIN: {

 my $thr = threads->new(\&baja);
 my $thr = threads->new(\&sube);
sleep 10;
#warn Dumper $semaphore;
warn $con;
}


sub baja{
my $j;
    for ($j = 1; $j < 20; $j++){
     my $thr = threads->new(\&sub_down);
    }
}

sub sube{
my $j;
    for ($j = 1; $j < 30; $j++){
     my $thr = threads->new(\&sub_up);
    }
}


 sub sub_down {
   #  $semaphore->down;
   lock $con;
   $con--;
  }

 sub sub_up {
   #  $semaphore->up;
   lock $con;
   $con ++;
  }