use Win32::PerfLib;
      my $server = "";
      Win32::PerfLib::GetCounterNames($server, \%counter);
      %r_counter = map { $counter{$_} => $_ } keys %counter;
      # retrieve the id for process object
      $process_obj = $r_counter{Process};
      # retrieve the id for the process ID counter
      $process_id = $r_counter{'ID Process'};

      # create connection to $server
      $perflib = new Win32::PerfLib($server);
      $proc_ref = {};
      # get the performance data for the process object
      $perflib->GetObjectList($process_obj, $proc_ref);
      $perflib->Close();
      $instance_ref = $proc_ref->{Objects}->{$process_obj}->{Instances
+};
      foreach $p (sort keys %{$instance_ref})
      {
          $counter_ref = $instance_ref->{$p}->{Counters};
          foreach $i (keys %{$counter_ref})
          {
              if($counter_ref->{$i}->{CounterNameTitleIndex} == $proce
+ss_id)
              {
                  printf( "% 6d %s\n", $counter_ref->{$i}->{Counter},
                          $instance_ref->{$p}->{Name}
                        );
              }
          }
      }
[download]