$foo = sprintf "%o", $stat->mode;