use Win32API::Registry 0.21 qw( :ALL );

my $reg_api;
RegConnectRegistry( '127.0.0.1', HKEY_LOCAL_MACHINE, $reg_api ) or die $^E;
RegOpenKeyEx( $reg_api, "SOFTWARE\\7-zip", 0, KEY_READ, $key )or die $^E;
RegGetKeySecurity( $key, DACL_SECURITY_INFORMATION, $pSecDesc, [] )or die $^E;