#!/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 $!;
 

main::(scripts/mymailsender.pl:20):
20:     push @args, Server => $server;
  DB<1> n
main::(scripts/mymailsender.pl:21):
21:     push @args, Auth => [$smtpuser, $smtppasswd];
  DB<1> n
main::(scripts/mymailsender.pl:22):
22:     push @args, Debug => 1;
  DB<1> n
main::(scripts/mymailsender.pl:24):
24:     my $mailer  = Mail::Mailer->new($type, @args) or die "Kann kein neues Mail::Mailer-Objekt erzeugen: $!\n";
  DB<1> n
main::(scripts/mymailsender.pl:27):
27:     $mailer->open({From => $from, To => $to, Subject => $subject}) or die "Kann kein neues Mail::Mailer-Objekt oeffnen: $!\n";
  DB<1> n
Invalid argument at /usr/lib/perl5/vendor_perl/5.8.8/Mail/Mailer.pm line 269.
 at /usr/lib/perl5/vendor_perl/5.8.8/Mail/Mailer.pm line 269
        Mail::Mailer::open('Mail::Mailer::smtp=GLOB(0x83859c0)', 'HASH(0x82e01ec)') called at scripts/mymailsender.pl line 27
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<1>

if ($opt{Auth}) {
       $smtp->auth(@{$opt{Auth}})
           or return undef;
    }

  DB<12> 
Net::SMTP::auth(/usr/local/lib/perl5/site_perl/5.8.8/Net/SMTP.pm:117):
117:        my $mechanisms = $self->supports('AUTH',500,["Command unknown: 'AUTH'"]);
  DB<12> 
Net::SMTP::auth(/usr/local/lib/perl5/site_perl/5.8.8/Net/SMTP.pm:118):
118:        return unless defined $mechanisms;
  DB<12>