Using Win32::TieRegistry module I tried this :

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";
    }
    }
[download]

But this will give only if subkey exists...how to get the details of a subkey? Each subkey has Name/Type and Data defined. How do i get these details?
Basically i want to compare the actual registry key values with the expected( which is maintained in a file).
Thanks.