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

##</code><code>##

C:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); printf qq[decimal %d (as octal: %o)\n], $n, $n " 0666
decimal 438 (as octal: 666)