How to get the name of Perl script that is running

Question

How can I get the name of the script?

For example, I have a Perl script with the name XXX.pl. This file contains:

$name = #some function that obtains the script's own name print $name; 

Output:

XXX.pl 

I would like to liken this to the CWD function that obtains the scripts directory. I need a function that obtains the script's name as well.

Answer 1

The name of the running program can be found in the $0 variable:

print $0; 

man perlvar for other special variables.

Answer 2

use File::Basename; my $name = basename($0); 

PS. getcwd() and friends don't give you the script's directory! They give you the working directory. If the script is in your PATH and you just call it by name, not by its full path, then getcwd() won't do what you say. You want dirname($0) (dirname also is in File::Basename).