All the Perl that's Practical to Extract and Report
At LinuxWorld, I saw a demonstration of Tactile Interrogator. Quite cool, but I don't think I'd pay $49.95 for it.