my $mode = (stat('.'))[2] & 07777;
print $mode ,"\n";
printf "%o\n", $mode ;
print mode_to_string($mode);