use Stat::lsMode;
Stat::lsMode->novice(0);
print format_perms(0755), "\n";
print format_perms(04700), "\n";