[PERL] Souci de $SIG{ALRM}

Bonjour,

J'ai un souci avec une de mes interruptions dans mon programme.

Voilà un morceau du corps, il est modifié pour raison de confidentialité mais tout fonctionne hormis l'interruption :

eval
{
local $SIG{ALRM} = sub {return -1};
alarm $temps = 5; #Temps est un paramètre de la fonction passé plus haut, je lui mets 5 secondes pour l'exemple

while($tableau_fichier)
{
#Traitements sur les fichiers

#Incrémentation d'un compteur
$nbreFichiersTraites++;

#Le programme attends dix secondes
sleep 10;
}

#Si tout est passé le compteur passe à 0.
alarm 0;
};

#On retourne le compteur
return $nbreFichiersTraites;

Le souci se situe au niveau du sleep. Il attends dix secondes entre chaque traitement puis m'affiche qu'il a effectué tous les traitements... et je comprends pas pourquoi vu que l'interruption est sensée se déclencher au bout de 5 secondes.

Si quelqu'un voit mon erreur merci à lui.