Récupérer le nom du fichier perl qui est utilisé

Bonjour à tous,

Comment on peut faire pour récupérer le nom du fichier perl qui a été lancé ??

j'ai un script test.pl dedans il fait appel à lui même en ajoutant des arguments

Code:

---

`test.pl log mdp`

---

le probleme c'est que si l'utilisateur modifie le nom du fichier test.pl
le script ne fonctionnera plus.

Essaie :

Code:

---

my $mon_nom=$0;

---

hors de toute boucle, dans le flux principal du programme.

Merci sa marche 8)