$x->GetValues(\%vals );
         #print Dumper \%vals;
         $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{DisplayName});
         $rec->{path} = $vals{InstallSource}[2] if ( exists $vals{InstallSource});
         print "App : $rec->{app}
         print "Path :$rec->{path} \n";
         print "---------\n";