use Win32::PerfMon;

my $PerfObj = Win32::PerfMon->new(".");
my $Objects = $PerfObj->ListObjects();

    foreach $Object (@$Objects)
    {
        print "$Object\n";
        my $Counters  = $PerfObj->ListCounters($Object);
        my $Instances = $PerfObj->ListInstances($Object);
        foreach $Counter (@$Counters)
        {
            print "\t[Counter]$Counter\n";
        }

        foreach $Instance (@$Instances)
        {
                print "\t[Instance]$Instance\n";
        }
    }