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>