use Win32::TieRegistry( Delimiter => "/" );
my $sec;
$Registry->{"LMachine/Software/7-Zip/"}->RegGetKeySecurity( 4, $sec, [] );