use XML::Rules;

my @rules = (
  list => sub {
    my $dict = $_[1]{dict};
    for my $d (@$dict) {
      print "$d->{key}: $d->{value}\n";
    }
    return;
  },
  dict => [
    '/root' => sub {
      my $d = $_[1];
      print "$d->{key}: $d->{value}\n" if $d->{key} eq 'status';
      return;
    },
    'no content array',
  ],

  value => 'content',
);

my $xr = XML::Rules->new( rules => \@rules );
$xr->parse($xml);