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

$hkey->Close();