my $octal = sprintf("%04o", OWNER_READ);