use Stat::lsMode;

$mode  = (stat $some_file)[2]; # 33206
$perms = format_mode($mode);   # -rw-rw-rw-