use Win32::Registry;
    my $tips;
    $::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{1545207E-C6F3-31D7-9918-BDBB65075FBF}", $tips)
        or die "Can't open tips: $^E";
    my ($type, $value);
    $tips->QueryValueEx("DisplayName", $type, $value) or die "$^E";
    print "Programm:  $value\n";
    $tips->QueryValueEx("DisplayVersion", $type, $value) or die "$^E";
    print "Version:  $value\n";
    $tips->QueryValueEx("InstallDate", $type, $value) or die " $^E";
    print "Installations Datum:  $value\n";
    $tips->QueryValueEx("Publisher", $type, $value) or die "$^E";
    print "Hersteller:  $value\n";