#!/usr/bin/perl -w

my $reference = shift;
my $check = shift;

my @filesA = `ls $reference/*`;


my %ref;
for my $f (@filesA) {
	chomp $f;
	next if $f =~ /^\s*$/;
	my @blah = split /\//, $f;
	$ref{$blah[$#blah]}=1;
}

my @filesB = `ls $check/*`;
for my $f (@filesB) {
	chomp $f;
	next if $f =~ /^\s*$/;
	my @blah = split /\//, $f;
	if (!$ref{$blah[$#blah]}) {
#	if (!$ref{$f}) {
		print "missing $f\n";
	}
}