package User;
...
use constant FOO => 1 << 1;
use constant BAR => 1 << 2;
use constnat BAZ => 1 << 3;
...
sub permits { 
    my ($self, $mask) = @_;
    return ($self->{perms} & $mask);
}