Help for this page
system("diff -q \"$File::Find::name\" \"$other_file\" > NU +L"); if($?) { print "$file is different\n"; }
if(qx/diff -q "$File::Find::name" "$other_file"/) { print "$file is different\n"; }