my $mode= perm2mode("rw-r----x");
my $str= sprintf "0%o", $mode;
print "mode=$mode str=$str\n";
my $bad= 0+$str;
printf "bad=%d=0%o mode=%d=0%o\n", $bad, $bad, $mode, $mode;