Select Code to Download

  use Win32 qw( DACL_SECURITY_INFORMATION );

use strict;
use warnings;
...

# Print the decoded DACL.
print "\n", Dumper $strSDDL;