use strict;
use warnings;

use Win32::TieRegistry qw(:KEY_);

$Registry->Delimiter("/");
my $procinfo = $Registry->Open(
				"HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION/System/CentralProcessor/0",
				{ Access => KEY_READ() }
			       );

PrintHash($procinfo);

sub PrintHash
{
	my ($hashref, $indent) = @_;
	my %hash = %{$hashref};
	$indent += 2;

	my $maxsize = 0;
	foreach my $key (keys %hash)
	{ 
		$maxsize = length $key if (length $key > $maxsize);
	}
	
	foreach my $key (sort keys %hash)
	{
		printf "%*sKey: %-*s Value: %s\n", $indent, "", $maxsize, $key, $hash{$key};
		if (ref $hash{$key} eq 'ARRAY') { PrintArray($hash{$key}, $indent); }
		if (ref $hash{$key} eq 'HASH')  { PrintHash($hash{$key}, $indent); }
	}
}

sub PrintArray
{
	my ($array, $indent) = @_;
	my @arr = @{$array};
	$indent += 2;
	my $cnt = 0;
	foreach my $elem (@arr)
	{
		printf("%*s%2d. %s\n", $indent, "", $cnt, $elem);
		if (ref $elem eq 'ARRAY') { PrintArray($elem, $indent); }
		if (ref $elem eq 'HASH')  { PrintHash($elem, $indent); }
		++$cnt;
	}
}