[Moscow.pm] Прототипы функций для файлов

[Анатолий Гришаев]

Возможно ли создать функцию с прототипом как у print?

Я нашел в perlsub, что можно сделать почти так с дополнительной запятой

print_utf FILE_UTF, $foo;
print_cp1251 FILE,_UTF $foo;

А вот можно без, т.е.

print_utf FILE_UTF $foo;
print_cp1251 FILE_UTF $foo;


В догонку: а можно ли узнать как тебя вызвали как метод или как программу?

С уважением, Анатолий.