#!usr/bin/perl -w
use strict;
use MIME::Lite;
use POSIX;

my $mailfrom = 'mymail@gmx.com';
my $mailto = 'mymail@gmx.com'; # $mail_empfaenger;
my $subject  = "test";
my $mailtext = "TESTE";

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

$msg->send("smtp", "XXX.XX.208.11", Timeout=>10, Debug=>1, Port=>25);
exit;