#! /usr/bin/perl -w

use strict;
use warnings;

my $Registry;
use Win32::TieRegistry 0.20 (
	TiedRef => \$Registry, Delimiter => "/",
	ArrayValues=>1,
	qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
	);
	
my $winkey= $Registry->{"CUser/Software/Microsoft/Internet Account Manager/"};

print keys(%$winkey);