my $parser = new XML::Rules (
	rules => [
	_default => 'content',
	message => sub {
		Mail::Sendmail::sendmail(
			from => $_[1]->{from},
			to => $_[1]->{to},
			subject => $_[1]->{subject},
			body => $_[1]->{body},
		)
			or warn "Mail Error: $Mail::Sendmail::error";
		return '+message_count' => 1, '+sent_count' => ($Mail::Sendmail::error ? 0 : 1);
	},
	messages => sub {
		print "SAX Mailer Finished\n$_[1]->{sent_count} of $_[1]->{message_count} message(s) sent\n";
		return;
	}
]);
$parser->parsefile($file);