$base = '';
my @keys = Variant(VT_ARRAY|VT_UI1, '');
$result = $registry->EnumKey(2147483651, $base, @keys);
print "$base\nResult: $result\n";
foreach $key (@keys) {
	print "Key:$key\n";
}