my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		_default => '',
		'NAME,ACT' => 'content',
		DATASOURCE => sub {
			my ($tag,$attrs) = @_;
			return '@'.$attrs->{NAME} => $attrs->{ACT};
		},
		NAGIOS => 'pass no content',
	},
);

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

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

print join( ", ", @{$data->{cur}}), "\n";