Как узнать имя запущенного Perl-скрипта

Как я могу узнать имя сценария?

Например, у меня есть сценарий Perl с именем XXX.pl . Этот файл содержит:

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

Вывод:

XXX.pl

Я хотел бы сравнить это с функцией CWD, которая получает каталог сценариев. Мне нужна функция, которая также получает имя сценария.