sub sendmsg {
my $mx_record = shift;
my $sender = shift;
my $recipient = shift;
my $subject = shift;	
my $messagebody = shift;
my $message;
my $result;
		$message = MIME::Lite->new(
		Subject  => $subject,
		To       => $recipient,
		From     => $sender,
		Type    => 'text/html',
		Data     => $messagebody
		);
		$message->replace("X-Mailer" => "Perl Mailer Override");
		$message->add("X-Antiabuse" => ["anti abuse tracking", "cid:1234", "ccid:5678"]);
		MIME::Lite->send('smtp', $mx_record, Hello => 'example.com', Timeout => 20);
		# Send the message
		eval{$message->send};
		if($@) {
$result = "ERROR from MX: $mx_record\n$@\n";
		} else {
		$result = "OK from MX: $mx_record\n";
		}
return $result;	
}