#!/usr/bin/perl

use strict;
die("Usage: mkcsum <dir>\n")
  if (scalar(@ARGV) != 1);
my $dir = $ARGV[0];
die("$dir is not a directory\n")
  if (! -d $dir);
die("chdir($dir) failed: $!\n")
  if (!chdir($dir));
foreach my $fname (sort split(/\n/, `find . -type f`)) {
  print STDERR "$fname\n";
  system("cksum", $fname);
}