Select Code to Download

$perm->Remove('domain\usr')||warn "$^E $!";
if ($perm->Set()){print "OK\n"}else{warn "$^E $!"}