or download this
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();