use Win32::Security::ACL;
use Win32::Security::Raw;

my $objectType = "SE_REGISTRY_KEY";

my($psidOwner, $psidGroup, $pDacl, $pSacl, $pSecurityDescriptor) =
		Win32::Security::Raw::GetNamedSecurityInfo("MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Console", $objectType, 'SACL_SECURITY_INFORMATION');
if ($pSacl) {
	my($AceCount, $AclBytesInUse, $AclBytesFree) = Win32::Security::Raw::GetAclInformation($pSacl, 'AclSizeInformation');
	$sacl = "Win32::Security::ACL::$objectType"->new(Win32::Security::Raw::CopyMemory_Read($pSacl, $AclBytesInUse));
} else {
	$sacl = "Win32::Security::ACL::$objectType"->new(undef);
}

use Data::Dumper;
print Dumper($sacl);