aide script perl <=> shell

Bonjour ,

Je souhaiterai écrire un porgramme en perl équivalent en bash unix suivant.
J'ai déjà essayé écrire en perl mais je n'arrive pas.
Merci

script.sh:
rep_referencenew_provisoire=/export/home/rtp99/99/tickets/automatisation2/campagnes/ab/referencenewprovisoire

for DIR in `ls $rep_referencenew_provisoire`
do
for ticket in `ls $rep_referencenew_provisoire/$DIR/ticket*`
do

=> je met dans la variable ticket tous les tickets se trouvant sous les répertoires du répertoire $rep_referencenew_provisoire

J'ai fait pareil en perl :

foreach $dir (`ls $rep_referencenew_provisoire`)
{
foreach $ticket (`ls $dir/ticket*`)
{
print $ticket;
}
}

=> ca ne marche pas, la variable $dir dans le 2 eme boucle foreach ne renvoie pas de valeur.

Utilise la fonction glob (perldoc -f glob) ;)

Code:

---

print join "\n", glob("$rep_referencenew_provisoire/ticket*");

---

merci philou it's ok