DB<8> $c = $mode & 07777;

  DB<9> printf "%04b", $c;
111101101
  DB<10>