my ( $value, $type ) = $key->GetValue( "$_" );
	# ---- format the value as text
	if ( $type == 4 )    # reg_dword
	{
	    $value = hex( $value )
	}