umask 0022
redo mode1
MODE=$(perl -e '@s=stat "mode1"; printf "%04o", $s[2] & 07777')
[ "$MODE" = "0644" ] || exit 78