GetVersion

use Win32::TieRegistry ( Delimiter=>"/");
sub GetVersion {
    my @akeys = ("{74E91999-153B-43E8-8E48-5A2B51C7B2AF}", #client 64
                 "{62A420A8-DD5D-4CF6-9781-A124BAD6EE2D}", #client 32
                 "{DC2B7F2E-F087-45BD-A102-67D7D282093A}", #console 64
                 "{89E2CD6B-3654-4ABF-AF55-6044D0FAAB70}", #console 32
                 "{2078AC3E-831A-4643-B874-4429A1489072}");#gateway 64

    foreach my $sCurKey (@akeys){
            my $RegQuerie = "LMachine/Software/Microsoft/Windows/CurrentVersion/Uninstall/".$sCurKey."/DisplayVersion";
            my $sVersion = &RegReadKey($RegQuerie);
            if($sVersion){ return $sVersion; } #quit when found one
    }
    return "--"; #if not found
}

sub RegReadKey {my $sKey = shift;
    print $sKey."\n";
    my $raVal= $Registry->{$sKey};
    return @$raVal[0];
}