#!/usr/bin/perl -w

use strict;
use MIME::Lite;

# EMail verfassen
my $mailfrom = 'name@email.de';
my $mailto   = 'name@email.de';
my $subject  = "TEST_SUBJECT";
my $mailtext ="TEST";


#E-Mail versenden:
my $msg = MIME::Lite->new(
         From    => $mailfrom,
         To      => $mailto,
         Subject => $subject,
         Type    => "multipart/related"
    );
$msg->attach(
        Type => "text/html",
        Data => $mailtext,
    );   
    
$msg->send("smtp", "157.163.168.131");      #or die ...
#mail.dc4ca.siemens.de
       
print "Email von $mailfrom an $mailto gesendet!";