I'm not aware of any module that does exactly what you want, and I think the only way to do what you want is to grovel around in the perl internals to find and pick apart the stack and hopefully follow some pointers from there to the calling context. This is the sort of spectacularly evil hack that I would love to see on the CPAN but lack the XS and perlguts skills to do myself.