#! /usr/bin/perl

use Digest::MD5;
use strict;

# MD5 hash of "Quid quid latine dictum sit altum viditur".
use constant SALT => "0bc4717102ccf6009a1286ba46aaa8c0";

my $ctx = Digest::MD5->new();
$ctx->add( SALT );

while ( <> ) {
    $ctx->add( $_ );
    print;
}

my $digest = uc( $ctx->hexdigest() );
print "\n<!-- Checksum: $digest -->\n";

# vim:set et sw=4 ts=4:
