1:53 >perl -wE "say 022;"
18

 1:53 >perl -wE "say oct(22);"
18

 1:53 >perl -wE "say oct(022);"
Illegal octal digit '8' ignored at -e line 1.
1

 1:53 >

##</code><code>##

my $mode = $sb[2] & oct(777);
...
ok( ! ( $mode & oct(22) ), "File is not group or world writable" );

##</code><code>##

 1:53 >perl -wE "say oct('022');"
18

 2:08 >