use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );

my $pound      = $Registry->Delimiter("/");

$BaseKey = $Registry->Open("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall", {Access=> 0x20019|0x0100});
print $BaseKey."\n";
print Dumper keys %$BaseKey;
print "Number of subkeys found: ".scalar(keys %$BaseKey);
foreach $Key (keys %$BaseKey)
{ print $Key."\n";
}

##</code><code>##

Win32::TieRegistry=HASH(0x4eaa84)
Number of subkeys found: 0