$ver=$Registry->{"//$_/HKEY_LOCAL_MACHINE/Software/Network Associates/TVD/NetShield NT/CurrentVersion//szProductVer"}

##</code><code>##

$key = $Registry->Connect("$computer","LMachine/Software/Network Associates/TVD/NetShield NT/CurrentVersion" {Access=>KEY_READ} ) )

$ver = $key->GetValue("szProductVer")