use Win32::FileSecurity qw(Get EnumerateRights);
Get($folder,\%htrustees);

      while (($trustee, $mask) = each %htrustees) {
     print "$trustee:$mask";
      
}