Select Code to Download

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

 1:53 >

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

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

 2:08 >