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