my %RegHash;

use Win32::TieRegistry( TiedHash => \%RegHash,
			Delimiter => "/");


my $registry = \%RegHash;


@regkeys = keys %{$registry->{'HKEY_LOCAL_MACHINE/SOFTWARE/'}};
print join "\n", @regkeys;