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

##</code><code>##

perl -le '$n=q(0666); print $n'