I found Stat::lsMode on CPAN. Looks like it will do the trick. Example usage:

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