C:\test>perl -le" print $ARGV[ 0 ] " 0666
0666