# Basic master Registry object: sub KEY_WOW64_64KEY () { 0x0100 } sub KEY_WOW64_32KEY () { 0x0200 } $RegObj= {}; @$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}= ( "NONE", "", [], "\\", "\\", KEY_READ|KEY_WRITE|KEY_WOW64_64KEY|KEY_WOW64_32KEY, $Flag_HexDWord|$Flag_FixNulls, "${PACK}::_Roots" );