use Modern::Perl;

use Win32::TieRegistry ( Delimiter=>'/', SplitMultis=>0, FixSzNulls =>1, ArrayValues => 0,
qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
    KEY_READ KEY_WRITE KEY_ALL_ACCESS ), );

my $reg_obj = $Registry->Open("LMachine/Software/wwe", { Access=>'KEY_READ' } )
  or die "Error: $^E\n";
  
foreach my $value ($reg_obj->ValueNames()) {
	my ($valuedata, $valuetype) = $reg_obj->GetValue( $value );
	my %valuetypes = (
	);
	say qq{"$value"=$valuetype:$valuedata};
}