Perl: узнать имя считываемого файла

$ARGV

P.S. Программить на perl, не имея Perl Cookbook под рукой, - неприкольно.

Кажется, никак. Из stdin, в который разворачивает сам перл.

$ echo Привет | tee {a,b,c}.txt > /dev/null
$ perl -pe 's/^/$ARGV: /' {a,b,c}.txt
a.txt: Привет
b.txt: Привет
c.txt: Привет

cat .procmailrc .fetchmailrc | perl -pe 's/^/$ARGV: /'

Hint: (<>) работает для уймы случаев. Ответ в общем случае -- никак.

В данном случае $ARGV это '-'. Все правильно - чтение идет со стандартного ввода, что не так?

Не знаю, $ARGV все равно выдает то, что нужно :)
Спасибо!