B::Debug - walk Perl syntax tree, printing debug info about ops - View it on GitHub