Help for this page
$dec_perms = (stat("filename"))[2] & 07777; $oct_perm_str = sprintf "%o", $perms;
$ perl -le" print sprintf q{\\%03o}, ord $_ for qq{\r}, qq{\n} " \015 \012 $ perl -le " $_ = qq{\r\n\r\n}; s{(.)}{sprintf q{\\%03o}, ord $1}gse; +print; " \015\012\015\012