[Perl 6] bitwise operators

constant $READ = 4;
constant $WRITE = 2;
constant $EXEC = 1;

$READ +^ $WRITE == 6 or die "Wrong priviledge";
$READ +^ $EXEC == 5 or die "Wrong priviledge";
$READ +^ $WRITE +^ $EXEC == 7 or die "Wrong priviledge";