Recherche:

actuellement tu as :

-d "Public"

A mon avis il faut que dans $fichier il y ait le nom completé :

-d "/home/Usager/Public"

Sinon teste mon code voir si il marche sur ton système.

j'ai quasimment le même code et jamais eu de problème.
Même si je ne vois pas de différence, je te donne mon code:


sub anaDirectorate {
my($namedir) = @_;
local $_;
local *DIR;
...