Devel::StackTrace + PadWalker.

WWW: http://search.cpan.org/dist/Devel-StackTrace-WithLexicals/