You could check out Stat::lsMode, which does the same thing and also a bit more (doesn't just do the rwx bits).

It also has a slightly different and cleaner algorithm (no offense meant to yours :).