#!/usr/local/bin/perl

sub read_code {
  local ($f) = @_;
  open(FILE, $f) || die("Cannot open $f");
  read(FILE, $buff, 4);
  $n = unpack("N", $buff);
  read(FILE, $buff, $n-4);
  close(FILE);
  $buff;
}

$code1 = do read_code ($ARGV[0]);
$code2 = do read_code ($ARGV[1]);

if ($code1 eq $code2) {
  print "$ARGV[0] and $ARGV[1] are identical.\n";
  exit 0;
} else {
  print "$ARGV[0] and $ARGV[1] differ.\n";
  exit 1;
}
