Perl: Как получить имя файла при использовании конструкции <>?

Perl предлагает эту очень приятную возможность:

while ( <> )
{
    # do something
}

...которая позволяет использовать скрипт как script.pl <имя файла>, а также cat <имя файла > | script.pl.

Теперь, есть ли способ определить, был ли скрипт вызван прежним способом, и если да, то каково было имя файла?

Я знаю, что когда-то знал это, и я знаю, что даже использовал эту конструкцию, но я не могу вспомнить, где/как. И оказалось очень трудно найти это в сети ("perl stdin filename"? Нет...).

Помогите, пожалуйста?