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"
}