use constant OTHER_READ => 0004
use constant OTHER_WRITE => 0002;
use constant OTHER_EXEC => 0001;
use constant GROUP_READ => 0040;
use constant GROUP_WRITE => 0020;
use constant GROUP_EXEC => 0010;
use constant OWNER_READ => 0400;
use constant OWNER_WRITE => 0200;
use constant OWNER_EXEC => 0100;

##</code><code>##

use constant OTHER_READ => sprintf("%.4o", 0004)