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