$ perl -wE 'printf "%o\n", 777' 1411