bitwise comparison of files from two directories.

[khanzadayz]

Please tell me how do you do bitwise comparison of files from two directories.
My current thinking is as:

    #!/usr/bin/perl -w
 
    $CMP="/usr/bin/cmp";
 
    $dir0=$ARGV[0];
    $dir1=$ARGV[1];
 
    if(!$dir0 || !dir1){ print "Error: need both directory paths to compare";exit;}
 
    @files0=`find $dir0 -type f`;
    $count=0;
    foreach $file0 (@files0){
    $file1=$file0;
    $file1=~s/$dir0//;
    $file1=$dir1.$file1;
    chomp($file0);
    chomp($file1);
    $file0=~s/\$/\\\$/;
    $file1=~s/\$/\\\$/;
    system("$CMP $file0 $file1");
    if($count>10){
    print ".";
    $count=0;
    }else{
    $count++;
    }
    }

Best regards,