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