DB<1> $mode = 33261;

  DB<2> printf "%04o", $mode;
100755
  DB<3> printf "%04o", $mode & 07777;
0755
  DB<4> printf "%04o", ($mode & 07777);
0755
  DB<5>