All the Perl that's Practical to Extract and Report
CVS log message:
I think this adds everything for the XXX into the tree
Unfortunatly, the I thought incorrectly
