#!/usr/bin/perl -w
eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
  if 0; # not running under some shell
use lib qw( blib/lib lib );
package Compress::Zlib;
use DynaLoader; our (@ISA); @ISA = qw(DynaLoader);
bootstrap Compress::Zlib;
use FileHandle;
my $totalFiles = scalar(@ARGV);
foreach my $file (@ARGV)
  {
  if (-d $file)
    { warn "$0: ${file}: Is a directory\n"; next; }
  my $fh = FileHandle->new();
  if (! $fh->open($file, 'r'))
    { warn "$0: $!\n"; next; }
  binmode($fh);
  my $bytesRead; my $buffer;
  my $adler = 0x00000001;
  while ($bytesRead = $fh->read($buffer, 32768))
    { $adler = adler32($buffer, $adler); }
  printf("%08x_A", $adler);
  print("\t$file") if ($totalFiles > 1);
  print("\n");
  }
