Help for this page
my ( $value, $type ) = $key->GetValue( "$_" ); # ---- format the value as text ... { $value = hex( $value ) }
$dword = pack <somehow> ( $value ); # eg $value = 5242880 dec ... $testdw = $dword & $mask; $newdw = $dword | $flags; $newval = hex ( $newdw ); # gets written to file