Бывает, когда нет ssh-доступа и возможности набрать команду pwd, нужно узнать полный путь к файлу. В данном случае выручает библиотека File::Spec.

Пример использования:

use File::Spec;
$path = File::Spec->rel2abs($0);