Select Code to Download

#!/usr/bin/env perl

...
is(  -O $0,       1,   "This script is owned by real uid.");
isnt($mode & 020, 020, "This script isn't group writable.");
isnt($mode & 002, 002, "This script isn't world writable.");

1..4
ok 1 - This script isn't a directory.
ok 2 - This script is owned by real uid.
ok 3 - This script isn't group writable.
ok 4 - This script isn't world writable.

isnt((stat $0)[2] & 022, 022, "This script isn't group or world writab
+le.");