Select Code to Download

use strict;
...

print "Number of subkeys found: ".scalar(keys %$uninstall)."\n";

 |
 |
...
 |  Number of subkeys found: 353
[OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe

 |
 |
...
 |  Number of subkeys found: 77
[OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe