#!/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"; }
    }
  }
}