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

##</code><code>##

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

##</code><code>##

## no critic (LeadingZeros)
my $mode = $sb[2] & 0777;
## use critic
...
## no critic (LeadingZeros)
ok( ! ( $mode & 022 ), "File is not group or world writable" );
## use critic