use strict;
use warnings;
use MIME::Lite;

# Variablen wie bei Net::SMTP
my $Mailserver = 'mail.hm.edu';
my $From = 'webmaster@netzmafia.de';
my $To = 'plate@hm.edu';

# Text der Mail
my $text = qq~
Hallo mein Freund,

dieses ist eine automatisch erstellte Mail als
Plain Text.

Viele Gruesse,
 der Admin
~;

# HTML-Variante
my $html = qq~
<B>Hallo</B> mein Freund,

dieses ist eine <I>automatisch</I> erstellte Mail als
HTML-Text.
<HR>
Viele Gruesse,
 der Admin
<HR>
~;

# Erster Teil: Normaler Text aus einer Variablen
my $msg = MIME::Lite->new(
                        From     => $From,
                        To       => $To,
                        Subject  => "Multipart - Alternative",
                        Type    => 'multipart/alternative'
                       );

# das Text-Attachment anhaengen
$msg->attach(Type => 'text/plain',
             Data => $text,
             ); 

# das HTML-Attachment anhaengen
$msg->attach(Type => 'text/html',
             Data => $html,
             ); 

# statt Sendmail (Default) Net::SMTP verwenden
MIME::Lite->send('smtp', $Mailserver, Timeout => 60);
$msg->send();