# ex_16-2
# Learning Perl on Win32 Systems, Exercise 16.2

use Win32::Registry;
$p = shift || die "usage: $0 path";
# strip leading backslashes
$p =~ s#^\\##;
$main::HKEY_LOCAL_MACHINE->Open($p, $key) || 
  die "Open: $!";
$key->GetValues(\%vals); # get values -hash ref
foreach $k (keys %vals) {
  $key = $vals{$k};
  print "$$key[0] = $$key[2]\n";
}