All the Perl that's Practical to Extract and Report
...here, in clpmisc. (Available from Google Groups as well.)
For sake of completeness:
use warnings FATAL => qw{ uninitialized };
