my $checksum = do {
      local $/;  # slurp!
      unpack ("%32W*", readline) % 65535;
      };