nom du script perl

bonj,

Je cherche à recuperer le nom du script perl entrain de s'execut dans mon prog (comme %0 pour des script windows)

Code:

---

my $scriptname = $0;

---