perl -MFile::stat -E "printf '%%07o', stat('perldb.ini')->mode"
0100666