use Mail::Sendmail;

  %mail = ( To      => seine@seine.de',
            From    => 'meine@meine.com',
            Message => "This is a very short message"
           );

  sendmail(%mail) or die $Mail::Sendmail::error;

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

connect to localhost failed (Unknown error)
connect to localhost failed
connect to localhost failed (Unknown error) no (more) retries!

Can't locate Mail/Sendmail.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/l
ib .) at mail.pl line 1.
BEGIN failed--compilation aborted at mail.pl line 1.