$rec->{app} = $vals{DisplayName}[2] if ( exists $vals{DisplayName});
         $rec->{path} = $vals{InstallSource}[2] if ( exists $vals{InstallSource});
         print "$rec->{app}" if ($rec->{app});
         print "$rec->{path}" if ($rec->{path});