Select Code to Download

...
use constant READ_PERM => 0x04;
...
    print "EXECUTE Allowd\n";

...

use constant READ_PERM => READ_PERM
use constant WRITE_PERM => WRITE_PERM;
...
if ( grep { $_ == EXECUTE_PERM } @allowed_perms )
    print "EXECUTE Allowed\n";