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();