Works for me...

use strict;
use warnings;

use Win32::PerfLib ();

my $server = "";

{
   my %counters;
   my $process_group_id;
   my $handle_count_counter_id;
   my %perf_data;
   my $perflib;
   my $process_instances;
   my $total_instance;
   my $total_counters;
   my $total_handle_count_counter;
   my $total_handle_count;

   Win32::PerfLib::GetCounterNames($server, \%counters);

   foreach (keys(%counters)) {
      if ($counters{$_} eq 'Process') {
         $process_group_id = $_;
      }

      if ($counters{$_} eq 'Handle Count') {
         $handle_count_counter_id = $_;
      }
   }

   $perflib = new Win32::PerfLib($server);
   $perflib->GetObjectList($process_group_id, \%perf_data);
   $perflib->Close();

   $process_instances = $perf_data{'Objects'}->{$process_group_id}->{'
+Instances'};

   foreach (keys(%$process_instances)) {
      if ($process_instances->{$_}->{'Name'} eq '_Total') {
         $total_instance = $process_instances->{$_};
         last;
      }
   }

   $total_counters = $total_instance->{'Counters'};

   foreach (keys(%$total_counters)) {
      if ($total_counters->{$_}->{'CounterNameTitleIndex'} == $handle_
+count_counter_id) {
         $total_handle_count_counter = $total_counters->{$_};
         last;
      }
   }

   $total_handle_count = $total_handle_count_counter->{'Counter'};

   print($total_handle_count, $/);
}
[download]

OT rant: