#!/usr/bin/perl
use strict;
use warnings;
use ExtUtils::Installed;

my $packlist = ExtUtils::Installed->new;

for my $module ( $packlist->modules ) {
    my @missing = $packlist->validate( $module );
    if ( @missing ) {
        print "$module is b0rked - missing file(s)\n";
        print "\t$_\n" for @missing;
    }
}