title: Printing out the code of an anonymous subroutine
body: <p>I'm currently working in a very complex Perl architecture, and I want to create some debugging tools. Since a lot of the behavior involves anonymous subroutines, I'd like to analyze some of the behavior, and all I have to work with is a reference to the subroutine.</p>
  
  <p>In short, is there a way to print the code (since Perl is interpreted it may still be available?) of a subroutine reference?</p>