#!/usr/bin/perl

use XML::Simple;
use strict;

my $xs = XML::Simple->new();
my $xml = $xs->XMLin('bind.xml');

my $counters = $xml->{bind}->{statistics}->{server}->{counters};

print "Success: ", $counters->{success}, "\n";
print "Failure: ", $counters->{failure}, "\n";