ppi_fuzz.pl

use strictures;
use lib 'lib';
use PPI;
use File::Find::Rule;
use 5.010;
$|++;

my @files = File::Find::Rule->file->name( '*.pm' )->in( "c:/Perl" );
say "found ".@files." files";
for my $file (@files) {
    PPI::Document->new( $file );
    print '.';
    print "\n$file\n" if PPI::Document->errstr =~ /meep/;
}