Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
$Permissions &= ~READ; # Set READ to false
$Permissions ^= EXECUTE; # Toggle EXECUTE
print $Permissions, "\n";

if ($Permissions & READ) {
    print "You can read.\n";
} else {
    print "You can't read.\n";
}