my @cksums;
my @files = `find $path -type f`; # apologies to etcshadow
chomp @files;

push @cksums, `cksum $_` for ( @files );

##</code><code>##

my @cksums = `find $path -type f | xargs cksums`;

##</code><code>##

time perl -e '@cksums = `find . -type f -print0 | xargs -0 cksum`'

time perl -e '$/="\x0";
 open(I,"find . -type f -print0 |" );
 open(SH,"|/bin/sh");
 while (<I>) { chomp; print SH "cksum \"$_\" > /dev/null\n" }'