How can I tell which subroutine I'm in?

Question

Is there a way to get the name of the enclosing subroutine of a piece of perl code? For example:

sub foo { print where_am_i(); }

will output 'foo'.

Answer 1

Use the caller function:

my $function = (caller(0))[3];