use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );

   my $info = Sys::Info->new;
   my $cpu = $info->device('CPU');  

   printf "\nWe have %s ", scalar $cpu->count;
   printf "%s-bit CPU", scalar $cpu->bitness;
   printf " %s\n", scalar $cpu->identify;
   printf "The CPU speed is: %s\n", scalar $cpu->speed;
   print "We are running a ",$^O", system\n";