#!/usr/bin/perl -w

#
# dircmp.pl
#
# quick and dirty script to compare the files found in any two directoires
#
# Created: Tue Aug 10 11:28:16 EDT 1999 mortis@voicenet.com
#
use strict;

my $dir1 = shift;
my $dir2 = shift;

opendir DIR, $dir1;
my @files1 = readdir DIR;
closedir DIR;

my %files1;
foreach (@files1) {
	next if /^\.{1,2}$/;
  ++$files1{$_};
}

opendir DIR, $dir2;
my @files2 = readdir DIR;
closedir DIR;


foreach (@files2) {
	next if /^\.{1,2}$/;
  print $_, "\n" unless defined $files1{$_};
}