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