#!/usr/bin/perl -w

use Mail::Mailer;
use MIME::Base64;
use Authen::SASL;

my $from     = "markus\@empfaenger.net";
my $to         = "markus\@sender.net";
my $subject    = "markus perl probe";
my $text     = "kleine perl probe";

my $args;

my $type     = "smtp";
my $server   = "exchange.server";
my $smtpuser = "Markus";
my $smtppasswd = "password";

push @args, Server => $server;
push @args, Auth => [$smtpuser, $smtppasswd];

my $mailer  = Mail::Mailer->new($type, @args) or die "Kann kein neues Mail::Mailer-Objekt erzeugen: $!\n";

$mailer->open({From => $from, To => $to, Subject => $subject}) or die "Kann kein neues Mail::Mailer-Objekt oeffnen: $!\n";
print $mailer $text;
$mailer->close;

    268     # Fork and start a mailer
    269     (defined($exe) && open($self,"|-"))
    270         || $self->exec($exe, $args, \@to)
    271         || die $!;