Select Code to Download

my $UninstallRegistryPATH = "HKLM\\SOFTWARE\\Microsoft\\Windows\\Curre
+ntVersion\\Uninstall\\{30277218-0100-0904-9ABB-000BDB5CF35D}";
...
{
    print "$var"
}

----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 val
+ue.

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

$hkey->Close();

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

$hkey->Close();