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