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

  %mail = ( To      => 'osm@tappenbeck.net',
            From    => 'osm2go@tappenbeck.net',
            Message => "This is a very short message"
           );
  $mail{auth} = {user=>'meine@email-adresse.net', password=>"xxxxxxx", required=>1 };

  $mail{Smtp} = 'smtp.1und1.de'; 
 
  
  sendmail(%mail) or die $Mail::Sendmail::error;

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