#!/usr/bin/perl # # use warnings; use strict; use Encode; use MIME::Lite; use MIME::Base64; my $user = "ich\@web.de"; my $pass = "geheim"; my $subject = "wichtig"; my $server = "smtp.web.de"; my $msg = MIME::Lite->new( To => "sonstwer\@web.de", From => "ich\@web.de", Subject => encode("MIME-B", $subject), Type => "Multipart/Related" ); $msg->attach( Type => 'text/html; charset=UTF-8', Data => qq{

trüdel lüdel lüüüüü

} ); $msg->attach( Type => 'image/png', Path => 'pg_0001.png', Id => '0001.png' ); $msg->send("smtp", "smtp.web.de", AuthUser=>$user, AuthPass=>$pass);