perl -le '$n=0666; print $n'

##</code><code>##

perl -le '$n=shift; print $n' 0666