my ($perms, $type) = @ARGV; print "Other Test: ", ($perms & ($type << 0) ,"\n"; print "Group Test: ", ($perms & ($type << 3 )),"\n"; print "Owner Test: ", ($perms & ($type << 4)),"\n"; # with command line params: 63,1;