#!/usr/bin/env perl


use strict;
use warnings;


use Win32::OLE;
use Data::Dumper;


	my $class = "Win32_PerfFormattedData_PerfOS_Processor";
	my $key = 'Name';

	my @properties = qw(PercentIdleTime PercentProcessorTime PercentPrivilegedTime PercentUserTime PercentInterruptTime);
	my $wmi = Win32::OLE->GetObject("winmgmts://./root/cimv2")
		or die "Failed getobject\n";

	my $list, my $v;

	$list = $wmi->InstancesOf("$class")
		or die "Failed getobject\n";
	my $hash;
	foreach $v (in $list) {		
		$hash->{$v->{$key}}->{$_}  = $v->{$_} for @properties;
	}

    print Dumper $hash;
	
	#-------------------
	# Using Otehr class	
	$class = 'Win32_PerfRawData_PerfOS_Processor';
	
	$wmi = Win32::OLE->GetObject("winmgmts://./root/cimv2")
		or die "Failed getobject\n";

	$list = $wmi->InstancesOf("$class")
		or die "Failed getobject\n";
	foreach $v (in $list) {		
		$hash->{$v->{$key}}->{$_}  = $v->{$_} for @properties;
	}

    print Dumper $hash;