use strict;
use File::Path;
use File::Find;

my $repodir='D:\Documents\Works\Perl\Perl tools\repository\amaPerl';
my $instdir='D:\AmaPerl';


my %options;
$options{'wanted'}=\&compare_files;
$options{'no_chdir'}=1;
find(\%options,  ($repodir));

exit(0);

sub compare_files
{
    return if($_ eq '.' || $_ eq '..' || $File::Find::dir =~ /CVS/);
    if(-f $File::Find::name) {
        my $file=substr($File::Find::name,length($repodir)+1);
        my $other_file=$instdir."\\".$file;
        if(! -f $other_file) {
            print "$file not found installed...\n";
        } else {
            system("diff -q \"$File::Find::name\" \"$other_file\" > NUL");
            if($?) {
                print "$file is different\n";
            }
        }
    }
}