Как я могу определить, в какой подпрограмме я нахожусь?

Есть ли способ получить имя включающей подпрограммы части кода perl? Например:

sub foo { print where_am_i(); }

выведет 'foo' .