Help for this page
my %shouldexist = map { $_ => undef } @shouldexist;
delete $shouldexist{ $filename };
print "Missing:\n"; foreach (sort keys %shouldexist) { print "$_\n"; }