1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 

     6 use Win32API::Registry 0.21 qw( :ALL );

     7 

     8 

     9 my $key;

    10 my $i = 0;

    11 while (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\$i", 0, KEY_READ, $key)) {

    12     $i++;

    13     RegCloseKey($key);

    14 }

    15 

    16 print "$i\n";