use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 );
  
    $RegHash= $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CURRENTCONTROLSET/SERVICES/MSSQL\$SQLEXPRESS/"}
    #$tips= $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/PMS/"}
      or  die "Can't find the Windows Registry: $^E\n";
    foreach(  keys %$RegHash ) {
        #print "$_: ", $RegHash->{$_}, "\n";
	if ( defined $_ ) {
		print "$_ is defined...\n";
	}
    }