use Win32::FileSecurity(Get, EnumerateRights, Set);

$cart='TestFolder';
 mkdir   $cart||warn $!;
Get ($cart, \%hs1);
 while (($nom, $mask)=each %hs1)
 {
  if ($nom !~ /Everyone/){
    $hs2{"$nom"}=$mask;
    print "\t\t$nom\n";
  }
  else {print"\t\t$nom\t\TO ELIMINATE\n"}
 }
Set ($cart, \%hs2);
print"\nAFTER\n\n";

Get ($cart, \%hs3);
while (($nom3, $mask3)=each %hs3)
 {
  print "\t\t$nom3\n";
 }