ファイルパーミッションの取得

　statを使用します。3番目の返り値を8進数に変換したものの下3桁がパーミッションになっています。

@st = stat 'foo.txt';
$p = substr((sprintf "%03o", $st[2]), -3);
print $p, "\n";