my $msg = MIME::Lite->new(
           From    => $mailfrom,
           To      => $mailto,
           Subject => $subject,
           Type    => "multipart/related"
      );
  $msg->attach(
          Type => "text/html",
          Data => $mailtext,
      );
$msg->send("smtp", "mail.domain.de");