use Win32::TieRegistry(Delimiter=>'\\');
  my $reg = "HKEY_LOCAL_MACHINE\\SOFTWARE\\TEST\\Value1";
  my $val = $Registry->{$reg};
  print "val: ".$val."\n";