sub compare50
  {
  my ($file1, $file2) = @_;
  local $/ = \50; 
  return do {local @ARGV = $file1; <> } eq do {local @ARGV = $file2; <> };
  }