Как узнать текущий каталог?

Требуется узнать полный путь до папки из которой работает perl скрипт.
На php это функция realpath(\'.\');
А на perl?

$ENV{SCRIPT_FILENAME} полный путь
$ENV{SCRIPT_NAME} относительный путь
Узнать все переменные окружения через SSI:


Скриптом так:

#!/usr/bin/perl

print "Content-type: text/html\\n\\n";
while (($key, $val) = each %ENV) {
   print "$key = $val
\\n";
}

Блин, то ли форум вырезал, то ли я забыл - в первых двух строках, в фигурных скобках вся фигня в одинарных кавычках

[Боря Елкин]

Блин, то ли форум вырезал, то ли я забыл - в первых двух строках, в фигурных скобках вся фигня в одинарных кавычках

Необязательно