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 () { chomp; print SH "cksum \"$_\" > /dev/null\n" }'