my $UninstallRegistryPATH = "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{30277218-0100-0904-9ABB-000BDB5CF35D}";
my $cmd = "REG QUERY ${UninstallRegistryPATH}";

print "\n----$cmd----\n\n";
my @RegKeys = `$cmd 2>&1`;
foreach my $var (@RegKeys) 
{
	print "$var"
}


##</code><code>##

----C:\Windows\system32\reg.exe QUERY HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{30277218-0100-0904-9ABB-000BDB5CF35D}----

ERROR: The system was unable to find the specified registry key or value.


##</code><code>##

use Win32::Registry;
my $Register = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{034106B5-54B7-467F-B477-5B7DBB492624}';
my $hkey;
$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die print "($!) ($?) ($^E)\n";

$hkey->Close();

##</code><code>##

use Win32::Registry;
my $Register = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
my $hkey;
$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die print "($!) ($?) ($^E)\n";

$hkey->Close();