sub files_differ {
  system "cmp file1 file2";
 return $? >> 8;
}