I see, another way to the answer is via Basic debugging checklist

$ perl -MO=Deparse,-p

ok( ! $mode & 022, "File is not group or world writable" );
^Z
ok(((!$mode) & 18), 'File is not group or world writable');
- syntax OK
[download]