use Mail::Sendmail qw/sendmail %mailcfg/; $mailcfg{smtp} = [ 'mail.*********.de' ]; my %mail = ( To => 'Vorname-Nachname@******.de', From => 'me@here.com', Message => "This is a very short message" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log;