use strict;
use warnings; no warnings 'uninitialized';

use XML::Rules;

my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		_default => 'content',
		DATASOURCE => 'by NAME',
		NAGIOS => 'pass no content',
	},
);

my $data = $parser->parse($file);

#use Data::Dumper;
#print Dumper($data);

print $data->{cur}{ACT};