Would caller help? It's used to examine the call stack. For example, the Carp module (included with perl) uses it to warn/die with stack traces or from the perspecive of the caller.