All the Perl that's Practical to Extract and Report
I like use strict; with pride. This is even better than the test approach. :)