Help for this page
$ perl -Mv5.14 -e'say sprintf "%o", $_ for 0666, 0777;' 666 777
$ perl -Mv5.14 -e'say sprintf "0%o", $_ for 0666, 0777;' 0666 0777