--- /dev/null
+#!/usr/bin/perl
+use strict;
+
+my $d1 = shift or die;
+my $d2 = shift or die;
+
+opendir D, $d1 or die;
+my @f1 = readdir D;
+closedir D;
+opendir D, $d2 or die;
+my @f2 = readdir D;
+closedir D;
+
+my %f1;
+foreach my $f (@f1) { $f1{$f} = 1; }
+my %f2;
+foreach my $f (@f2) { $f2{$f} = 1; }
+
+foreach my $k (keys %f1) {
+ next unless $k =~ /c$/;
+ if (defined $f2{$k}) {
+ my @d = `diff $d1/$k $d2/$k`;
+ if (@d > 0) {
+ print "\n\n===========================================\n\n$k\n";
+ foreach my $l (@d) { print "$l"; }
+ }
+ }
+}