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