Select Code to Download

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

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