Peut-on savoir ce qu'il y a avant $ARGV[0] ?

Bonsoir tout le monde. Je suis un mauvais sujet qui a pris
de déplorables habitudes en langage C, et notamment avec les
bouts de code du type

int main (int argc, char **argv) {

Dans cet affreux langage berk pas beau qu'est C, un programme
peut savoir sous quel nom on l'a appelé en regardant ce qu'il
y a dans argv[0]. Si mon programme s'appelle monProg et que
je l'appelle avec une syntaxe de ce type

./monProg arg1 arg2 arg3

eh bien argv[0] c'est "./monProg", argv[1] c'est "arg1" et
ainsi de suite.

Or donc, je m'imaginais qu'en Perl c'était kif-kif (voire
encore plus simple) et que quand j'appelais mon joli script
comme ça

./monScript.pl arg1 arg2 arg3

j'allais obtenir "./monScript.pl" dans $ARGV[0] et "arg1"
dans $ARGV[1]. Eh bien, cornegidouille, ce n'est pas le cas:
$ARGV[0] contient "arg1"... et je ne sais pas du tout comment
me débrouiller pour récupérer le nom de mon script.

Quelqu'un connaîtrait-il la manip qui va bien pour
qu'un script récupère le nom sous lequel on l'a lancé? Ça
me serait bien utile. Merci d'avance.

--
Jean-Luc Ancey - jlancey@nospam.com - http://www.amarelia.org
To reply, please replace "nospam" with "rocketmail"
Le progrès consiste à remplacer ce qui ne marchait pas vraiment mal
par ce qui ne marche pas vraiment bien.