Afin de savoir sous quel processeur tourne un programme, on peut
utiliser le module Sys::CPU . Celui-ci nous indique de façon
relativement sure et surtout portable ce genre d'informations.
use Sys::CPU;
my $number_of_cpus = Sys::CPU::cpu_count();
printf("I have %d CPU's\n",$number_of_cpus);
print " Speed : ".Sys::CPU::cpu_clock()."\n";
print " Type : ".Sys::CPU::cpu_type()."\n";