Select Code to Download

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

$VAR1 = {
          'Processor3' => {
...
                            'MHZ' => 3093
                          }
        };