#!/usr/local/bin/perl
use Mail::Sendmail;

 my %mail = ( To      => 'bbbbbb@xxxx.de',
            From    => 'aaaaaaa@xxxx.de',
            Message => "This is a very short message from Wiki-Server"
           );
  $mail{auth} = {user=>'yyyyyy@xxxx.de', password=>"******", required=>1 };

  $mail{Smtp} = 'xxxxxxx.xxxx.de'; 
 
 print "vor dem sendmail\n";
  
  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;