# EMailtext my $subject = "Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick; my $mailtext =" Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick."
Hallo ".$nick.",
und Herzlich Willkommen bei Pingu Farmer!

Deine Registrierung ist fast geschafft!
Klicke auf diesen Link um deine Account freizuschalten!

Viel Spaß!
"; #E-Mail versenden: my $msg = MIME::Lite->new( From => 'support@pingu-farmer.de', To => $mailto, Subject => $subject, Type => 'multipart/related' ); $msg->attach( Type => 'text/html', Data => $mailtext , ); $msg->attach( Type => 'image/png', Id => 'header', Path => 'images/header_email.png', ); $msg->attach( Type => 'image/png', Id => 'back', Path => 'images/background_email.png', ); $msg->attach( Type => 'image/png', Id => 'pingu', Path => 'images/pingu7s.png', ); $msg->send();