use strict;
use warnings;

use Win32API::Registry qw(KEY_READ);
 use Config;
 print "\n\nPerl $Config{archname}\n";
use Win32::TieRegistry(Delimiter=>"/");

my $uninstall=$Registry->Open(
    "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall",
    {
     Access=>KEY_READ()
     #Access=> 0x20019|0x0100
    }
    );

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


##</code><code>##

 |
 |
 |  Perl MSWin32-x86-multi-thread
 |  Number of subkeys found: 353
[OK] C:\ulisse\strawberry\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x86-multi-thread-64int
 |  Number of subkeys found: 353
[OK] C:\ulisse\straw5.20-32b\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x64-multi-thread
 |  Number of subkeys found: 77                                  <---- look here
[OK] C:\ulisse\straw64\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x86-multi-thread-64int
 |  Number of subkeys found: 353
[OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe


##</code><code>##

 |
 |
 |  Perl MSWin32-x86-multi-thread
 |  Number of subkeys found: 77
[OK] C:\ulisse\strawberry\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x86-multi-thread-64int
 |  Number of subkeys found: 77
[OK] C:\ulisse\straw5.20-32b\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x64-multi-thread
 |  Number of subkeys found: 77
[OK] C:\ulisse\straw64\perl\bin\perl.exe
 |
 |
 |  Perl MSWin32-x86-multi-thread-64int
 |  Number of subkeys found: 77
[OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe