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