Help for this page

Select Code to Download

Select or download this

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