use Win32::TieRegistry( Delimiter => '/' );
sub isExist{
    my $tips= $Registry->{"HKEY_LOCAL_MACHINE/Software/Microsoft/"}
		  or  die "Can't find the Windows tips: $^E\n";
		foreach(  keys %$tips  ) {
			print "$_: ", $tips->{$_}, "\n";
		}
}