use Mail::Sender;

$sender = new Mail::Sender {
        smtp => 'exchange.mycompany.com',
        from => 'me@mycompany.com',
        on_errors => 'code',
};
die "Can't create the Mail::Sender object: $Mail::Sender::Error\n"
        unless ref $sender;
ref $sender->Open({
        to => 'me@mycompany.com',
        subject => 'test'
})
        or die "Can't open the message: $sender->{'error_msg'}\n";
$sender->SendLineEnc("Starbucks in 5");
$sender->SendLineEnc("\nHi");
ref $sender->Close
        or die "Failed to send the message: $sender->{'error_msg'}\n";