Select Code to Download

$perms->Add("$account", FULL |FULL, ACCESS_ALLOWED_ACE_TYPE, OBJECT_IN
+HERIT_ACE | CONTAINER_INHERIT_ACE);

foreach my $p ('NO_ACCESS', 'FULL','READ', 'WRITE' ,'CHANGE','GENERIC_
+ALL')
    {
...
                                                        -value    => $
+p, )->pack(@pl);
    }