use Win32::SystemInfo;
use Data::Dumper;

my %phash;
Win32::SystemInfo::ProcessorInfo(%phash);
print Dumper (\%phash);